login
Squares of the form 3p + q + 3, where p and q are primes.
0

%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