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 A076706 #6 Mar 30 2012 17:30:50 %S A076706 2,3,5,17,41,139,199,271,1217,3617,4001,4241,117017,746153,137542193 %N A076706 Primes which are the difference between two successive prime powers of prime numbers. %e A076706 3 = 128 - 125 = 2^7 - 5^3; 4241 = 528529 - 524288 = 727^2 - 2^19. %t A076706 pp = Sort[ Flatten[ Table[ Prime[n]^Prime[i], {n, 1, PrimePi[ Sqrt[10^16]]}, {i, 1, PrimePi[ Floor[ Log[ Prime[n], 10^16]]]}]]]; a = {}; Do[ If[ PrimeQ[ pp[[n + 1]] - pp[[n]]], a = Append[a, pp[[n + 1]] - pp[[n]]]], {n, 1, Length[pp] - 1}]; Union[a] %Y A076706 Cf. A053810, A075308. %K A076706 nonn %O A076706 1,1 %A A076706 _Zak Seidov_, Oct 26 2002 %E A076706 Edited and extended by _Robert G. Wilson v_, Oct 31 2002