A116657 Numbers k such that prime(k) == 11 (mod k).

1, 2, 3, 4, 5, 8, 20, 38, 39, 82, 190, 192, 444, 2702, 40079, 40156, 251719, 251725, 251733, 251740, 251788, 637322, 637342, 10553424, 10553571, 10553575, 10553646, 10553824, 27066990, 69709708, 69709870, 69709881, 69709941, 179992918, 179993010

Offset: 1

Author

Zak Seidov, Feb 21 2006

Keywords

• nonn

Comments

Starting with a(7), positions of 11 in A004648. - corrected by Eric M. Schmidt, Feb 05 2013

Crossrefs

Cf. A004648; A023143 - A023152, A116657, A116677, A116658, A116659: prime(n) == m (mod n), m=1..14.

Programs

Mathematica

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == 11, Print[n]], {n, 10^9}] (* Robert G. Wilson v, Feb 22 2006 *)

Sage

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

Extensions

a(17)-a(35) from Robert G. Wilson v, Feb 22 2006

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