cp's OEIS Frontend

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.

A076706 Primes which are the difference between two successive prime powers of prime numbers.

This page as a plain text file.
%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