A142538 Primes congruent to 8 mod 53.

61, 167, 379, 1439, 2287, 2393, 2711, 3347, 3559, 3877, 4513, 4831, 4937, 5573, 6421, 7057, 7481, 8011, 8117, 8329, 8647, 8753, 9283, 9601, 10343, 10979, 11827, 11933, 12251, 12569, 12781, 13099, 13417, 13523, 13841, 14159, 15643, 15749, 16067, 16703, 17021

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Maple

select(isprime, [seq(53*i+8, i=1..1000)]); # Robert Israel, Sep 07 2014

Mathematica

Select[Prime[Range[2600]], MemberQ[{8}, Mod[#, 53]] &] (* Vincenzo Librandi, Aug 29 2012 *)
Select[Range[8, 18000, 53], PrimeQ] (* Harvey P. Dale, Jun 06 2013 *)

Prog

(Magma) [p: p in PrimesUpTo(20000) | p mod 53 eq 8]; // Vincenzo Librandi, Aug 29 2012
(PARI) select(p -> p%53==8, primes(20000)) \\ Edward Jiang, Sep 07 2014

Crossrefs

Cf. A000040.

Sequence in context: A106096 A142482 A007488 * A057216 A139993 A088955

Adjacent sequences: A142535 A142536 A142537 * A142539 A142540 A142541

Keyword

nonn,easy

Author

N. J. A. Sloane, Jul 11 2008

Status

approved