OFFSET
1,2
COMMENTS
Several entries are represented by at least two differences: 4 (which equals 8-4 & 125-121), 168, 312, 600, 768, 792, 912, 1848, 2472, etc.
EXAMPLE
250 = 161051 - 160801 = 11^5 - 401^2.
MATHEMATICA
pp = Sort[ Flatten[ Table[ Prime[n]^Prime[i], {n, 1, PrimePi[ Sqrt[10^16]]}, {i, 1, PrimePi[ Floor[ Log[ Prime[n], 10^16]]]}]]]; l = Length[pp]; b = Take[pp, -l + 1] - Take[pp, l - 1]; Take[ Union[a], 57]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 26 2002
EXTENSIONS
Edited and corrected by Robert G. Wilson v, Oct 31 2002
STATUS
approved