A116659 Numbers k such that prime(k) == 14 (mod k).

1, 3, 9, 23, 81, 85, 87, 16057, 4124457, 27067011, 27067127, 1208198605, 1208198851

Offset: 1

Author

Zak Seidov, Feb 21 2006

Keywords

• nonn

Comments

Starting with a(4), positions of 14 in A004648. - Robert G. Wilson v, Feb 22 2006, 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] == 14, Print[n]], {n, 10^9}] (* Robert G. Wilson v *)

Sage

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

Extensions

a(9)-a(13) from Robert G. Wilson v, Feb 22 2006

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