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
Keywords
Examples
29 is not the difference between two successive perfect powers.
Programs
-
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]]