The On-Line Encyclopedia of Integer Sequences® (OEIS®)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A258276

(Underlined text is an addition; strikethrough text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A258276

Balanced sphenic numbers (of order one): sphenic numbers (A007304) that are the average of the previous sphenic number and the following sphenic number.
(history; published version)

#13 by Alois P. Heinz at Wed Jul 08 17:04:43 EDT 2015

STATUS

proposed

approved

#12 by Michel Marcus at Wed Jul 08 12:35:17 EDT 2015

STATUS

editing

proposed

Discussion
Wed Jul 08	15:22	Antonio Roldán: Thanks

#11 by Michel Marcus at Wed Jul 08 12:34:48 EDT 2015

PROG

{for(i=1, 4*10^3, if(issphenic(i)&&2*i== nextsph(i)+ precsph(i), printprint1(i)))}, ", ")))}

STATUS

proposed

editing

Discussion
Wed Jul 08	12:35	Michel Marcus: pari script output like data section

#10 by Giovanni Resta at Tue Jun 09 06:47:46 EDT 2015

STATUS

editing

proposed

Discussion
Tue Jul 07	10:08	Antonio Roldán: Is there any problem with this sequence? It was approved several weeks ago but has not been published. Thank You.

#9 by Giovanni Resta at Tue Jun 09 06:47:07 EDT 2015

MATHEMATICA

a=30; b=42; c=66; L={}; While[[ Length[L]<100, If[b-a == c-b, AppendTo[L, , b]]; a=b; b]]; =c++; While[ Last/@ FactorInteger[c] != {1, 1, 1}, c++]]; L (* _Giovanni Resta_, Jun 09 2015 *)

a=b; b=c++; While[ Last/@ FactorInteger[c] != {1, 1, 1}, c++]]; L (* Giovanni Resta, Jun 09 2015 *)

#8 by Giovanni Resta at Tue Jun 09 06:46:03 EDT 2015

	DATA	`186, 370, 406, 418, 518, 582, 602, 710, 786, 814, 826, 830, 942, 978, 994, 1010, 1034, 1070, 1162, 1310, 1374, 1394, 1570, 1630, 1686, 1758, 1886, 1978, 2014, 2114, 2158, 2270, 2274, 2278, 2294, 2438, 2510, 2534, 2570, 2630, 2666, 2690, 2774, 2778, 2782, 2806, 3282, 3322, 3374, 3378, 3462, 3490, 3526, 3590, 3638, 3674, 3678, 3730`
	LINKS	`Giovanni Resta, <a href="/A258276/b258276.txt">Table of n, a(n) for n = 1..10000</a>`
	MATHEMATICA	`a=30; b=42; c=66; L={}; While[Length[L]<100, If[b-a == c-b, AppendTo[L, b]];` `a=b; b=c++; While[ Last/@ FactorInteger[c] != {1, 1, 1}, c++]]; L (* Giovanni Resta, Jun 09 2015 *)`
	STATUS	`proposed` `editing`

#7 by Tom Edgar at Wed May 27 19:52:32 EDT 2015

STATUS

editing

proposed

#6 by Tom Edgar at Wed May 27 19:52:30 EDT 2015

NAME

Balanced sphenic numbers (of order one): sphenic numbers (A007304) whichthat are the average of the previous sphenic number and the following sphenic number.

STATUS

proposed

editing

#5 by Wesley Ivan Hurt at Wed May 27 12:34:06 EDT 2015

STATUS

editing

proposed

#4 by Wesley Ivan Hurt at Wed May 27 12:33:33 EDT 2015

NAME

Balanced sphenic numbers (of order one): sphenic numbers (A007304 (n)) ) which are the average of the previous sphenic number and the following sphenic number.

EXAMPLE

406 is in this sequence because 406 = A007304(45) = (402+410)/2 = (A007304(44)+ ) + A007304(46))/2.

STATUS

proposed

editing

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 18 23:41 EDT 2024. Contains 375284 sequences. (Running on oeis4.)