%I #6 Jan 06 2026 07:26:05
%S 0,1,2,4,6,7,9,11,14,15,16,17,22,25,27,29,30,31,34,35,36,41,42,44,45,
%T 46,50,51,57,59,60,64,66,67,69,70,72,74,77,80,84,85,92,94,95,97,99,
%U 101,106,111,114,116,121,126,127,129,132,134,135,137,140,144,146,147,150,151
%N Numbers k such that 24*k + 13 is prime.
%t a = {}; Do[If[PrimeQ[24 n + 13], AppendTo[a, n]], {n, 0, 200}]; a
%Y Cf. A139530.
%K nonn
%O 1,3
%A _Artur Jasinski_, Apr 25 2008