A154711 Squares such that square-+5 are primes.

36, 144, 1296, 5184, 6084, 28224, 39204, 41616, 116964, 186624, 207936, 242064, 285156, 345744, 352836, 443556, 527076, 571536, 617796, 646416, 992016, 1028196, 1468944, 1483524, 1557504, 1572516, 1602756, 1726596, 1806336, 2178576

Offset

1,1

Links

Table of n, a(n) for n=1..30.

Mathematica

lst={}; Do[p=n^2; If[PrimeQ[p-5]&&PrimeQ[p+5], AppendTo[lst, p]], {n, 6, 8!, 6}]; lst
Select[Range[1500]^2, AllTrue[#+{5, -5}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 20 2018 *)

Crossrefs

Cf. A144938, A154709, A154710

Sequence in context: A262789 A110754 A299854 * A162992 A037072 A370453

Adjacent sequences: A154708 A154709 A154710 * A154712 A154713 A154714

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 14 2009

Status

approved