|
%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
|
