A139531 - OEIS

%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