login
Squares such that square+-3=primes.
1

%I #5 Dec 19 2012 17:43:42

%S 16,64,100,196,4096,8464,12544,19600,21316,29584,47524,88804,92416,

%T 103684,106276,115600,122500,126736,173056,193600,220900,258064,

%U 306916,313600,336400,391876,401956,425104,446224,470596,481636,495616,529984

%N Squares such that square+-3=primes.

%C 16-3=13,16+3=19,primes; 64-3=61,64+3=67,primes;...

%C The squared members of the intersection of A028873 and A049422. [From _R. J. Mathar_, Jan 03 2009]

%H Harvey P. Dale, <a href="/A153262/b153262.txt">Table of n, a(n) for n = 1..1000</a>

%t lst={};Do[p=n^2;If[PrimeQ[p-3]&&PrimeQ[p+3],AppendTo[lst,p]],{n,7!}];lst

%t Select[Range[750]^2,And@@PrimeQ[#+{3,-3}]&] (* _Harvey P. Dale_, Dec 19 2012 *)

%Y Cf. A144938

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Dec 22 2008