A127591 - OEIS

%I #8 Jan 15 2016 15:51:34

%S 2,4,10,13,17,19,20,22,23,25,29,32,37,44,50,53,55,58,59,62,68,79,83,

%T 88,89,94,95,97,100,107,109,113,118,122,134,142,143,152,155,157,158,

%U 163,167,169,173,193,194,199,200

%N Numbers k such that 64k+21 is prime.

%H Harvey P. Dale, <a href="/A127591/b127591.txt">Table of n, a(n) for n = 1..1000</a>

%t a = {}; Do[If[PrimeQ[21 + 64 n], AppendTo[a, n]], {n, 0, 200}]; a

%t Select[Range[200],PrimeQ[64#+21]&] (* _Harvey P. Dale_, Jan 15 2016 *)

%Y Cf. A035050, A007522, A127575, A127576, A127577, A127578, A127580, A127581, A087522, A127586, A127587, A127589, A127590, A127592, A127593, A127594.

%K nonn

%O 1,1

%A _Artur Jasinski_, Jan 19 2007