%I #7 Jul 29 2015 09:56:44
%S 73,79,103,193,199,223,271,313,439,463,751,823,991,1039,1063,1087,
%T 1303,1423,1543,1567,1663,1759,1783,1831,1873,1999,2143,2287,2383,
%U 2503,2833,3343,3463,3583,3631,3823,3847,3943,4447,4513,4639,4783,5023,5167,5407
%N Primes p such that p = q^2 + 6*r^2 where q and r are also primes.
%H Colin Barker, <a href="/A260555/b260555.txt">Table of n, a(n) for n = 1..1500</a>
%e 73 is in the sequence because 73 = 7^2 + 6*2^2 and 73, 7 and 2 are all primes.
%t Select[#1^2 + 6 #2^2 & @@ # & /@ Tuples[Prime@ Range@ 60, 2], PrimeQ] // Sort (* _Michael De Vlieger_, Jul 29 2015 *)
%Y Cf. A260553, A260554, A260556, A260557.
%K nonn
%O 1,1
%A _Colin Barker_, Jul 29 2015
|