login
A142519
Primes congruent to 25 mod 52.
1
181, 233, 337, 389, 701, 857, 1013, 1117, 1429, 1481, 1637, 1741, 1949, 2053, 2417, 2521, 2677, 2729, 2833, 3041, 3301, 3457, 3613, 3769, 3821, 4133, 4289, 4549, 4861, 5381, 5641, 5693, 5849, 5953, 6317, 6421, 6473, 6577, 6733, 7253, 7669, 7877, 8293, 8501
OFFSET
1,1
LINKS
FORMULA
a(n) ~ 24n log n. - Charles R Greathouse IV, Jul 03 2016
MATHEMATICA
Select[Prime[Range[1300]], MemberQ[{25}, Mod[#, 52]] &] (* Vincenzo Librandi, Aug 29 2012 *)
Select[Range[25, 8600, 52], PrimeQ] (* Harvey P. Dale, Aug 07 2017 *)
PROG
(Magma) [p: p in PrimesUpTo(10000) | p mod 52 eq 25]; // Vincenzo Librandi, Aug 29 2012
(PARI) is(n)=isprime(n) && n%52==25 \\ Charles R Greathouse IV, Jul 03 2016
CROSSREFS
Cf. A000040.
Sequence in context: A224614 A216309 A139648 * A053140 A330366 A107694
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jul 11 2008
STATUS
approved