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 A178660 #11 Aug 01 2023 17:08:02
%S A178660 7,12,13,18,58,142,187,502,597,657,702,907,912,942,943,972,1057,1168,
%T A178660 1248,1357,1453,1533,1663,1938,2013,2088,2272,2373,2478,2608,2848,
%U A178660 2968,3003,3028,3108,3247,3423,3478,3583,3817,3927,3957,4132,4212,4632,4668
%N A178660 Numbers k such that k^3 +- (k+5)^2 are primes.
%H A178660 G. C. Greubel, <a href="/A178660/b178660.txt">Table of n, a(n) for n = 1..10000</a>
%e A178660 7 is a term since: 7^3 +- 12^2 -> (199,487) which are primes.
%t A178660 Select[Range[8! ],PrimeQ[ #^3-(#+5)^2]&&PrimeQ[ #^3+(#+5)^2]&]
%t A178660 Select[Range[4700],AllTrue[#^3+{(#+5)^2,-(#+5)^2},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 19 2018 *)
%Y A178660 Cf. A068501, A137475, A178659.
%K A178660 nonn
%O A178660 1,1
%A A178660 _Vladimir Joseph Stephan Orlovsky_, Jun 01 2010