A023150 Numbers k such that prime(k) == 8 (mod k).

1, 3, 17, 443, 2701, 100365, 637235, 637325, 4124455, 4124473, 4124587, 27067125, 27067137, 27067521, 8179002131, 8179002135, 8179002153, 55762149069, 382465573521, 6201265271239145, 6201265271240411, 43525513764814933, 43525513764815131, 43525513764816415

Offset

1,2

Links

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

Mathematica

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

Prog

(Sage)
def A023150(max):
    terms = []
    p = 2
    for n in range(1, max+1) :
        if (p - 8) % n == 0 : terms.append(n)
        p = next_prime(p)
    return terms
# Eric M. Schmidt, Feb 05 2013

Crossrefs

Cf. A092050, A023143, A023144, A023145, A023146, A023147, A023148, A023149, A023151, A023152.

Sequence in context: A098138 A009719 A332758 * A257116 A305375 A128300

Adjacent sequences: A023147 A023148 A023149 * A023151 A023152 A023153

Keyword

nonn

Author

David W. Wilson

Extensions

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

a(15)-a(18) from Robert G. Wilson v, Feb 22 2006

First two terms inserted by Eric M. Schmidt, Feb 05 2013

Terms a(19) and beyond from Giovanni Resta, Feb 23 2020

Status

approved