OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
EXAMPLE
127 belongs here because 128 = 2^7 occurs between 127 and 131.
MATHEMATICA
lim = 10^4; pwrs = Sort[Flatten[Table[Prime[n]^i, {n, 1, PrimePi[Sqrt[lim]]}, {i, 2, Log[Prime[n], lim]}]]]; Union[NextPrime[pwrs, -1]] (* T. D. Noe, Mar 11 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Feb 09 2000
STATUS
approved