%I #6 Jan 02 2015 18:34:26
%S 16,25,49,121,169,225,289,361,529,625,729,841,961,1225,1369,1681,1849,
%T 2025,2209,2401,2809,3025,3481,3721,3969,4225,4489,5041,5329,5625,
%U 5929,6241,6889,7225,7569,7921,8281,9025,9409,10201,10609,11025,11449,11881
%N Squares of the form 3p + q + 3, where p and q are primes.
%t With[{nn=50},Take[Union[Select[3#[[1]]+#[[2]]+3&/@Tuples[Prime[ Range[ 20nn]],{2}],IntegerQ[Sqrt[#]]&]],50]] (* _Harvey P. Dale_, Jan 02 2015 *)
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Sep 23 2005
%E Corrected and extended by _Ray Chandler_, Oct 08 2005