OFFSET
1,1
COMMENTS
Powers of 2 and mostly largest powers of larger primes belong here.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
EXAMPLE
Let gpf(n) = A006530(n). 18 is in the sequence because gpf(17) = 17 > gpf(18) = 3 < gpf(19) = 19.
MATHEMATICA
mxp[x_] := Max[FactorInteger[x][[All, 1]]]; 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] (* Original program edited by Michael De Vlieger, Mar 26 2017 *)
With[{n = 181}, Select[MapIndexed[{First@ #2 + 1, Differences@ #1} &, Partition[Array[FactorInteger[#][[-1, 1]] &, n], 3, 1]], Apply[And[#1 < 0, #2 > 0] &, Last@ #] &][[All, 1]]] (* Michael De Vlieger, Mar 26 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 14 2004
STATUS
approved