A077286 Primes which are not the difference between two successive perfect powers (A001597).

29, 31, 179, 181, 281, 313, 379, 397, 487, 563, 839, 883, 907, 929, 953, 977, 997, 1049, 1171, 1567, 1823, 2213, 2339, 2371, 2383, 2729, 2749, 2897, 2999, 3067, 3137, 3313, 3529, 3637, 3823, 4591, 4789, 4871, 4951, 5197, 5237, 5279, 5531, 5573, 5741

Offset

1,1

Links

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

Example

29 is not the difference between two successive perfect powers.

Mathematica

pp = Union[ Join[{1}, Flatten[ Table[n^i, {n, 2, Sqrt[10^12]}, {i, 2, Log[n, 10^12]}]]]]; l = Length[pp]; d = Sort[Take[pp, -l + 1] - Take[pp, l - 1]]; a = {}; Do[ If[ PrimeQ[ d[[n]]], a = Append[a, d[[n]]]], {n, 1, l - 1}]; Complement[ Table[ Prime[i], {i, 1, 760}], Take[ Union[a], 760]]

Crossrefs

Cf. A001597, A023057.

Sequence in context: A157681 A288615 A158342 * A235364 A178425 A344796

Adjacent sequences: A077283 A077284 A077285 * A077287 A077288 A077289

Keyword

nonn

Author

Robert G. Wilson v, Oct 31 2002

Status

approved