|
| |
|
|
A100390
|
|
Numbers n where A006530 has a local minimum.
|
|
5
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A199768 A157932 A097619
Adjacent sequences: A100387 A100388 A100389 * A100391 A100392 A100393
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Dec 14 2004
|
| |
|
|
