%I #11 Sep 08 2022 08:45:25
%S 2,6,12,20,26,30,36,42,44,50,56,60,62,72,84,86,102,104,110,132,134,
%T 140,144,146,162,170,174,176,194,210,212,216,222,224,240,246,254,260,
%U 264,270,272,294,302,306,312,326,330,342,366,380,390,396,404,410,420,446
%N Numbers k such that 23*k + 1 is a prime.
%H Daniel Starodubtsev, <a href="/A120344/b120344.txt">Table of n, a(n) for n = 1..10000</a>
%e If k=86 then 23*k + 1 = 1979 (prime).
%t Select[Range[1000], PrimeQ[23*# + 1] &] (* _Stefan Steinerberger_, Jul 22 2006 *)
%o (Magma) [ n: n in [0..1500] | IsPrime(23*n + 1) ] // _Vincenzo Librandi_, Jan 31 2011
%K nonn,less
%O 1,1
%A _Parthasarathy Nambi_, Jun 24 2006
%E More terms from _Stefan Steinerberger_, Jul 22 2006