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.

A077257 Differences between two successive prime powers of prime numbers (A076707) in more than one way.

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