A076706 Primes which are the difference between two successive prime powers of prime numbers.

2, 3, 5, 17, 41, 139, 199, 271, 1217, 3617, 4001, 4241, 117017, 746153, 137542193

Offset

1,1

Links

Table of n, a(n) for n=1..15.

Example

3 = 128 - 125 = 2^7 - 5^3; 4241 = 528529 - 524288 = 727^2 - 2^19.

Mathematica

pp = Sort[ Flatten[ Table[ Prime[n]^Prime[i], {n, 1, PrimePi[ Sqrt[10^16]]}, {i, 1, PrimePi[ Floor[ Log[ Prime[n], 10^16]]]}]]]; a = {}; Do[ If[ PrimeQ[ pp[[n + 1]] - pp[[n]]], a = Append[a, pp[[n + 1]] - pp[[n]]]], {n, 1, Length[pp] - 1}]; Union[a]

Crossrefs

Cf. A053810, A075308.

Sequence in context: A348153 A211972 A339855 * A243441 A256426 A019350

Adjacent sequences: A076703 A076704 A076705 * A076707 A076708 A076709

Keyword

nonn

Author

Zak Seidov, Oct 26 2002

Extensions

Edited and extended by Robert G. Wilson v, Oct 31 2002

Status

approved