|
%I #9 Nov 10 2022 15:23:42
%S 83,197,311,653,881,1109,1223,1451,1907,2477,2591,2819,3389,3617,4073,
%T 4643,4871,5099,5441,5669,5783,5897,6011,6353,6581,7151,7607,7949,
%U 8291,8747,8861,9203,9431,9887,10343,10457,10799,11027,11369,11483,11597,11939,12281
%N Primes congruent to 26 mod 57.
%H Vincenzo Librandi, <a href="/A142681/b142681.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2400]], MemberQ[{26}, Mod[#, 57]] &] (* _Vincenzo Librandi_, Sep 02 2012 *)
%t Select[Range[26,12500,57],PrimeQ] (* _Harvey P. Dale_, Nov 10 2022 *)
%o (Magma) [p: p in PrimesUpTo(13000) | p mod 57 eq 26 ]; // _Vincenzo Librandi_, Sep 02 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
