A153262 Squares such that square+-3=primes.
16, 64, 100, 196, 4096, 8464, 12544, 19600, 21316, 29584, 47524, 88804, 92416, 103684, 106276, 115600, 122500, 126736, 173056, 193600, 220900, 258064, 306916, 313600, 336400, 391876, 401956, 425104, 446224, 470596, 481636, 495616, 529984
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A144938
Programs
-
Mathematica
lst={};Do[p=n^2;If[PrimeQ[p-3]&&PrimeQ[p+3],AppendTo[lst,p]],{n,7!}];lst Select[Range[750]^2,And@@PrimeQ[#+{3,-3}]&] (* Harvey P. Dale, Dec 19 2012 *)
Comments