A023147 Numbers k such that prime(k) == 5 (mod k).

1, 2, 3, 9, 16, 33, 40073, 40078, 40082, 40083, 40122, 251721, 251722, 251734, 251736, 4124584, 10553433, 10553439, 10553444, 10553454, 10553478, 10553552, 10553553, 10553818, 27067098, 27067524, 179992912, 465769814, 465769832, 465769839

Offset

1,2

Links

Giovanni Resta, Table of n, a(n) for n = 1..68

Mathematica

p = 1; Do[ If[ Mod[p = NextPrime[p], n] == 5, Print[n]], {n, 1, 10^9}] (* Robert G. Wilson v, Feb 18 2004 *)

Crossrefs

Cf. A171432, A092047, A023143, A023144, A023145, A023146, A023148, A023149, A023150, A023151, A023152.

Sequence in context: A206777 A173809 A298355 * A220123 A220125 A095742

Adjacent sequences: A023144 A023145 A023146 * A023148 A023149 A023150

Keyword

nonn

Author

David W. Wilson

Extensions

More terms from Robert G. Wilson v, Feb 18 2004

a(24)-a(27) from Robert G. Wilson v, Feb 18 2004

Three missing initial terms at start of sequence inserted by Zak Seidov, Feb 05 2009

Status

approved