|
| |
|
|
A077286
|
|
Primes which are not the difference between two successive perfect powers (A001597).
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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: A156976 A157681 A158342 * A178425 A114180 A031172
Adjacent sequences: A077283 A077284 A077285 * A077287 A077288 A077289
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 31 2002
|
| |
|
|
