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 A077286 #3 Mar 30 2012 17:30:51
%S A077286 29,31,179,181,281,313,379,397,487,563,839,883,907,929,953,977,997,
%T A077286 1049,1171,1567,1823,2213,2339,2371,2383,2729,2749,2897,2999,3067,
%U A077286 3137,3313,3529,3637,3823,4591,4789,4871,4951,5197,5237,5279,5531,5573,5741
%N A077286 Primes which are not the difference between two successive perfect powers (A001597).
%e A077286 29 is not the difference between two successive perfect powers.
%t A077286 pp = Union[ Join[{1}, Flatten[ Table[n^i, {n, 2, Sqrt[10^12]}, {i, 2, Log[n, 10^12]}]]]]; l = Length[pp]; d = Sort[Take[pp, -l + 1] - Take[pp, l - 1]]; a = {}; Do[ If[ PrimeQ[ d[[n]]], a = Append[a, d[[n]]]], {n, 1, l - 1}]; Complement[ Table[ Prime[i], {i, 1, 760}], Take[ Union[a], 760]]
%Y A077286 Cf. A001597, A023057.
%K A077286 nonn
%O A077286 1,1
%A A077286 _Robert G. Wilson v_, Oct 31 2002