A053607 Primes p such that a pure prime power occurs between p and the next prime.

3, 7, 13, 23, 31, 47, 61, 79, 113, 127, 167, 241, 251, 283, 337, 359, 509, 523, 619, 727, 839, 953, 1021, 1327, 1367, 1669, 1847, 2039, 2179, 2207, 2399, 2803, 3121, 3469, 3719, 4093, 4483, 4909, 5039, 5323, 6229, 6553, 6857, 6883, 7919, 8191, 9403, 10193

Offset: 1

Author

Labos Elemer, Feb 09 2000

Keywords

• nonn

Examples

			127 belongs here because 128 = 2^7 occurs between 127 and 131.
		

Links

• T. D. Noe, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A051701, A025475.

Programs

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 *)