OFFSET
1,1
EXAMPLE
4 = 8-4 = 125-121, 168 = 529-361 = 1849-1681, 312 = 841-529 = 1681-1369.
It is interesting that 529 is a member of the last two examples.
6888 is the first one to be represented in just three ways.
4920 is the first one to be represented in four ways.
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 = Sort[ Take[pp, -l + 1] - Take[pp, l - 1]]; Union[ b[[ Select[ Range[355], b[[ # ]] == b[[ # + 1]] &]]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov and Robert G. Wilson v, Oct 31 2002
STATUS
approved