This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A077257 #10 Jan 20 2014 11:05:34 %S A077257 4,168,312,600,768,792,912,1848,2472,3048,3192,3288,3528,3720,4008, %T A077257 4920,5160,5208,5928,6072,6792,6840,6888,7080,7512,7728,7800,8520, %U A077257 8760,10632,11400,11880,11928,12792,13200,13440,13560,14280,14640,15960 %N A077257 Differences between two successive prime powers of prime numbers (A076707) in more than one way. %e A077257 4 = 8-4 = 125-121, 168 = 529-361 = 1849-1681, 312 = 841-529 = 1681-1369. %e A077257 It is interesting that 529 is a member of the last two examples. %e A077257 6888 is the first one to be represented in just three ways. %e A077257 4920 is the first one to be represented in four ways. %t A077257 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]] &]]]] %Y A077257 Cf. A053810, A075308, A076707, A077258. %K A077257 nonn %O A077257 1,1 %A A077257 _Zak Seidov_ and _Robert G. Wilson v_, Oct 31 2002