The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #19 Sep 08 2022 08:46:02
%S 47,139,277,461,599,691,829,967,1013,1151,1289,1381,1427,1657,1933,
%T 1979,2347,2393,2531,3037,3083,3221,3313,3359,3727,3911,4003,4049,
%U 4463,4831,4877,4969,5107,5153,5521,5659,5843,5981,6073,6211,6257,6763,6947,7039,7177
%N Primes congruent to 1 mod 23.
%C This sequence is not the same as A040984. First disagreement at index 34: a(34)=5153, A040984(34)=5521.
%H Bruno Berselli, <a href="/A212374/b212374.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 22n log n. - _Charles R Greathouse IV_, Jul 03 2016
%p select(p->irem(p, 23)=1, [ithprime(i)$i=1..1000])[]; # _Alois P. Heinz_, Sep 12 2012
%t Select[Prime[Range[1000]], Mod[#, 23] == 1 &]
%t Select[Range[1,7200,23],PrimeQ] (* _Harvey P. Dale_, Jul 02 2018 *)
%o (Magma) [p: p in PrimesUpTo(7200) | p mod 23 eq 1];
%o (PARI) is(n)=isprime(n) && n%23==1 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A100201, A102734, A141908-A141926, A040984.
%K nonn,easy
%O 1,1
%A _Bruno Berselli_, Sep 12 2012