A142344 Primes congruent to 25 mod 46.
71, 163, 347, 439, 577, 761, 853, 991, 1129, 1451, 1543, 2003, 2141, 2371, 2417, 2647, 2693, 2969, 3061, 3613, 3659, 3797, 3889, 4027, 4073, 4211, 4349, 4441, 4993, 5039, 5407, 5591, 5683, 5821, 5867, 6143, 6373, 6833, 6971, 7109, 7247, 7477, 7523, 7753
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000040.
Programs
-
Magma
[p: p in PrimesUpTo(8000) | p mod 46 eq 25]; // Vincenzo Librandi, Aug 26 2012
-
Mathematica
Select[Prime[Range[1200]],MemberQ[{25},Mod[#,46]]&] (* Vincenzo Librandi, Aug 26 2012 *) Select[Range[25,8000,46],PrimeQ] (* Harvey P. Dale, May 25 2017 *)
-
PARI
is(n)=isprime(n) && n%46==25 \\ Charles R Greathouse IV, Jul 03 2016
Formula
a(n) ~ 22n log n. - Charles R Greathouse IV, Jul 03 2016