|
Search: id:A100390
|
|
| |
|
| 4, 6, 8, 12, 16, 18, 20, 24, 27, 30, 32, 36, 40, 42, 45, 48, 50, 52, 54, 56, 60, 64, 66, 68, 70, 72, 75, 77, 81, 84, 88, 90, 96, 98, 100, 102, 105, 108, 110, 112, 114, 117, 120, 125, 128, 130, 132, 135, 138, 140, 144, 147, 150, 154, 156, 160, 162, 165, 168, 175, 180
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=1..1000
|
|
FORMULA
|
a(n) = A082418(n) + 1. - T. D. Noe, Nov 26 2007
|
|
EXAMPLE
|
Powers of 2 and mostly largest powers of larger primes belong here.
n=18: Lpf[17]=17>Lpf[18]=3<Lpf[19]
|
|
MATHEMATICA
|
<<NumberTheory`NumberTheoryFunctions` mxp[x_] :=Max[PrimeFactorList[x]]; ta={{0}}; Do[s1=mxp[n-1]; s=mxp[n]; s2=mxp[n+1]; If[Greater[s1, s]&&Greater[s2, s], Print[{n, {s1, s, s2}}]; ta=Append[ta, n]], {n, 1, 512}]; ta=Delete[ta, 1]
|
|
CROSSREFS
|
Cf. A006530.
Sequence in context: A046458 A096629 A020177 this_sequence A157932 A097619 A113709
Adjacent sequences: A100387 A100388 A100389 this_sequence A100391 A100392 A100393
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Dec 14 2004
|
|
|
Search completed in 0.002 seconds
|
