|
%I #13 Sep 08 2022 08:46:02
%S 107,743,1061,1697,2333,2969,3181,3499,3923,4241,4877,5407,6043,6361,
%T 6679,6997,7103,7951,8269,8693,9011,9859,10177,10601,11131,12721,
%U 13463,13781,14629,14947,15053,15583,15901,16007,17491,17597,18127,18233,18869,19081
%N Primes congruent to 1 mod 53.
%C Coincides for the first 166 terms with A059258, that is the sequence of primes p such that x^53 = 2 has no solution mod p (first divergence is at 91373).
%H Bruno Berselli, <a href="/A212377/b212377.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 52n log n. - _Charles R Greathouse IV_, Jul 03 2016
%t Select[Prime[Range[2200]], Mod[#, 53] == 1 &]
%t Select[Range[1, 20000, 53], PrimeQ]
%o (Magma) [p: p in PrimesUpTo(20000) | IsOne(p mod 53)];
%o (PARI) is(n)=isprime(n) && n%53==1 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A000040, A059258, A142532-A142582.
%K nonn,easy
%O 1,1
%A _Bruno Berselli_, Sep 20 2012
|
