|
%I #18 Jul 23 2013 04:19:20
%S 0,1,2,3,5,7,9,12,16,19,23,30,31,36,47,49,58,61,68,75,80,92,100,103,
%T 105,112,114,124,126,134,135,136,140,152,159,162,173,192,199,210,213,
%U 217,222,227,233,239,240,255,278,281,288,290,303,313,346,350,357
%N Numbers n such that 90*n + 11 and 90*n + 13 are twin prime.
%C All matching entries for A201804 and A201816 are twin prime numbers.
%t Select[Range[0, 499], PrimeQ[90# + 11] && PrimeQ[90# + 13] &]
%Y Cf. A201804, A201816.
%K nonn,easy
%O 1,3
%A _J. W. Helkenberg_, Jul 22 2013
%E Missing terms added from _Bruno Berselli_, Jul 23 2013
|
