|
%I #11 Aug 31 2020 18:47:32
%S 0,2,3,6,9,11,12,14,17,18,23,24,26,38,41,42,44,47,48,51,53,62,63,66,
%T 68,69,77,81,86,89,93,101,102,104,108,116,117,123,128,129,138,143,144,
%U 146,147,149,152,159,167,168,171,174,177,182,191,194
%N Numbers n such that 16n+5 is prime.
%H Daniel Starodubtsev, <a href="/A127590/b127590.txt">Table of n, a(n) for n = 1..10000</a>
%t a = {}; Do[If[PrimeQ[16n + 5], AppendTo[a, n]], {n, 0, 200}]; a
%t Select[Range[0,200],PrimeQ[16#+5]&] (* _Harvey P. Dale_, Aug 31 2020 *)
%o (PARI) is(n)=isprime(16*n+5) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A035050, A007522, A127575, A127576, A127577, A127578, A127580, A127581, A087522, A127586, A127587, A127589.
%K nonn
%O 1,2
%A _Artur Jasinski_, Jan 19 2007
|
