OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
EXAMPLE
Largest prime factors around 49 are {3,7,5} so 49 is not a member.
k = 343 = 7^3 is in the sequence because the corresponding largest prime factors are {19,7,43}.
MAPLE
N:= 2*10^5: # to get all terms <= N
f:= proc(x, p)
if max(numtheory:-factorset(x-1))>p
and max(numtheory:-factorset(x+1))>p then x
fi
end proc:
sort([seq(seq(f(p^i, p), i=2..floor(log[p](N))), p=select(isprime, [2, seq(i, i=3..floor(sqrt(N)), 2)]))]); # Robert Israel, Jul 12 2018
MATHEMATICA
<<NumberTheory`NumberTheoryFunctions` mxp[x_] :=Max[PrimeFactorList[x]]; lf[x_] :=Length[PrimeFactorList[x]]; ta={{0}}; Do[s1=mxp[n-1]; s=mxp[n]; s2=mxp[n+1]; If[Greater[s1, s]&&Greater[s2, s]&&Equal[lf[n], 1], Print[{n, {s1, s, s2}}]; ta=Append[ta, n]], {n, 1, 512}]; ta=Delete[ta, 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 14 2004
STATUS
approved