OFFSET
1,2
EXAMPLE
33 = 546 - 513 = 2568 - 2535 = 6168 - 6135 = 458703 - 458670 = 885465 - 885432 = 1048608 - 1048575 = 6291480 - 6291447 = 37748688 - 37748655 = 125829345 - 125829312.
MATHEMATICA
pp = Sort[ Flatten[ Table[ Prime[n]^i, {n, 1, PrimePi[ Sqrt[10^16]]}, {i, 1, Log[ Prime[n], 10^16]}]]]; l = Length[pp]; d = Sort[Take[pp, -l + 1] - Take[pp, l - 1]]; Union[ Take[d, 10^5]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Oct 31 2002
STATUS
approved