|
%I #11 Sep 08 2022 08:46:02
%S 83,739,821,1231,1559,1723,2297,2543,2707,2789,2953,3527,3691,4019,
%T 5003,5167,5413,5659,5741,5987,6151,6397,6971,7873,8447,8693,9103,
%U 9349,9431,9677,9923,10169,10333,11071,11317,11399,12301,12547,13121,13367,13613,13859
%N Primes congruent to 1 mod 41.
%C Coincides for the first 49 terms with A059236, that is the sequence of primes p such that x^41 = 2 has no solution mod p (first divergence is at 17467).
%H Bruno Berselli, <a href="/A212379/b212379.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1800]], Mod[#, 41] == 1 &]
%t Select[Range[1, 14000, 41], PrimeQ]
%o (Magma) [p: p in PrimesUpTo(14000) | IsOne(p mod 41)];
%o (PARI) select(p->p%41==1, primes(999)) \\ _Charles R Greathouse IV_, Sep 20 2012
%Y Cf. A000040, A059236, A142199-A142237.
%K nonn,easy
%O 1,1
%A _Bruno Berselli_, Sep 20 2012
|
