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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A258276 Balanced sphenic numbers (of order one): sphenic numbers (A007304) that are the average of the previous sphenic number and the following sphenic number. 2
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 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
EXAMPLE
406 is in this sequence because 406 = A007304(45) = (402+410)/2 = (A007304(44) + A007304(46))/2.
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 *)
PROG
(PARI)
issphenic(n)=if(n>0, omega(n)==3&&bigomega(n)==3, 0)
nextsph(n)={local(k=n+1); while(!issphenic(k), k+=1); k}
precsph(n)={local(k=n-1); while(!issphenic(k)&&k>0, k-=1); k}
{for(i=1, 4*10^3, if(issphenic(i)&&2*i== nextsph(i)+ precsph(i), print1(i, ", ")))}
CROSSREFS
Sequence in context: A363681 A260923 A151701 * A286006 A234108 A200199
KEYWORD
nonn
AUTHOR
Antonio Roldán, May 25 2015
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 20 17:12 EDT 2024. Contains 371845 sequences. (Running on oeis4.)