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 A077274 #10 Jun 28 2025 10:19:31
%S A077274 4,7,17,408,792,912,1608,1848,2472,2912,3192,3288,3432,3528,4008,4080,
%T A077274 4920,5160,5208,5928,6072,6792,6888,7080,7512,7728,7800,8520,8832,
%U A077274 10632,10848,11400,11880,11928,12792,13200,13440,13560,14280,14640
%N A077274 Differences between two successive powers of a prime but not a prime (A025475) in more than one way.
%e A077274 4 = 8 - 4 = 125 - 121.
%e A077274 7 = 16 - 9 = 32768 - 32761.
%e A077274 17 = 49 - 32 = 81 - 64 = 529 - 512.
%t A077274 pp = Sort[ Flatten[ Table[ Prime[n]^i, {n, 1, PrimePi[ Sqrt[10^10]]}, {i, 2, Log[ Prime[n], 10^10]}]]]; l = Length[pp]; b = Sort[ Take[pp, -l + 1] - Take[pp, l - 1]]; Union[ b[[ Select[ Range[375], b[[ # ]] == b[[ # + 1]] &]]]]
%Y A077274 Cf. A025475.
%K A077274 nonn
%O A077274 1,1
%A A077274 _Robert G. Wilson v_, Oct 31 2002