|
%I #12 Sep 08 2022 08:45:33
%S 0,1,3,4,5,9,10,11,14,16,18,21,23,24,25,26,31,33,35,36,38,39,40,43,45,
%T 49,50,53,56,58,59,61,64,66,70,71,78,79,86,88,89,94,95,99,100,101,108,
%U 109,110,113,114,115,116,120,123,126,128,130,133,135,138,143,149,150
%N Numbers k such that 24*k + 17 is prime.
%t a = {}; Do[If[PrimeQ[24 n + 17], AppendTo[a, n]], {n, 0, 200}]; a
%t Select[Range[0,200],PrimeQ[24#+17]&] (* _Harvey P. Dale_, Apr 18 2011 *)
%o (Magma) [n: n in [0..200] | IsPrime(24*n+17)]; // _Vincenzo Librandi_, Apr 19 2011
%K nonn
%O 1,3
%A _Artur Jasinski_, Apr 25 2008
|
