A116677 - OEIS

A116677

Numbers k such that prime(k) == 12 (mod k).

1, 91, 4124467, 27067043, 27067229, 27067261, 27067523, 1208198857, 8179002137, 8179002191

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

MATHEMATICA

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == 12, Print[n]], {n, 10^9}]

PROG

(Sage)

def A116677(max) :

terms = []

p = 2

for n in range(1, max+1) :

if (p - 12) % n == 0 : terms.append(n)

p = next_prime(p)

return terms

CROSSREFS

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

KEYWORD

nonn

AUTHOR

EXTENSIONS

First term inserted by Eric M. Schmidt, Feb 05 2013

STATUS

approved