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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Oct 31 2002
STATUS
approved