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,2

Comments

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

Links

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

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 *)

Prog

(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

Crossrefs

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

Sequence in context: A055638 A057657 A293591 * A268274 A079383 A103670

Adjacent sequences: A116654 A116655 A116656 * A116658 A116659 A116660

Keyword

nonn

Author

Zak Seidov, Feb 21 2006

Extensions

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

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

Status

approved