|
Search: id:A077286
|
|
|
| A077286 |
|
Primes which are not the difference between two successive perfect powers (A001597). |
|
+0
2
|
|
| 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; listen)
|
|
|
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: A125523 A156976 A157681 this_sequence A158342 A114180 A159022
Adjacent sequences: A077283 A077284 A077285 this_sequence A077287 A077288 A077289
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 31 2002
|
|
|
Search completed in 0.002 seconds
|
