A216402 Least prime p such that p = n (mod 59).

709, 2, 3, 181, 5, 419, 7, 67, 127, 541, 11, 71, 13, 73, 251, 193, 17, 313, 19, 79, 139, 199, 23, 83, 379, 439, 263, 677, 29, 89, 31, 563, 151, 211, 271, 331, 37, 97, 157, 571, 41, 101, 43, 103, 163, 223, 47, 107, 167, 109, 523, 229, 53, 113, 173, 233, 293, 353

Offset

1,1

Links

Table of n, a(n) for n=1..58.

Formula

a(n) = n if n is a prime < 59.

Mathematica

Table[Select[Prime[Range[1000]], Mod[#, 59] == n &, 1][[1]], {n, 58}] (* T. D. Noe, Sep 07 2012 *)

Prog

(Magma) [ Minimum({p : p in PrimesUpTo(NthPrime(1000)) | p mod 59 eq n}) : n in [1..58] ];  // Vincenzo Librandi, Mar 14 2025

Crossrefs

First terms in A216315, A142729..A142785.

Sequence in context: A188098 A306365 A279747 * A216315 A059312 A114923

Adjacent sequences: A216399 A216400 A216401 * A216403 A216404 A216405

Keyword

nonn,fini,full,changed

Author

Zak Seidov, Sep 06 2012

Status

approved