A105329 Numbers k such that prime(k+1) == 5 (mod k).

1, 2, 6, 7, 12, 14, 181, 1053, 1057, 2614, 40089, 40114, 40117, 40119, 100346, 100352, 100358, 251707, 251742, 251743, 251754, 251757, 1617173, 4124458, 10553513, 27067262, 27067272, 179992838, 179993008

Offset

1,2

Comments

There are no further terms up to 215000000. - Farideh Firoozbakht, May 13 2005

Integers k such that A004649(k+1) = 5. - Michel Marcus, Dec 30 2022

Links

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

Mathematica

Do[If[5 == Mod[Prime[n + 1], n], bb = Append[bb, n]], {n, 1, 251758}];
bb={}; Do[If[5 == Mod[Prime[n + 1], n], bb = Append[bb, n]], {n, 1, 251758}]; bb  (* Farideh Firoozbakht, May 13 2005 *)

Prog

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

Crossrefs

Cf. A004649, A105286, A105287, A105288, A105290, A105451.

Sequence in context: A293531 A072147 A190121 * A124319 A325262 A334906

Adjacent sequences: A105326 A105327 A105328 * A105330 A105331 A105332

Keyword

nonn,more

Author

Zak Seidov, Apr 30 2005

Extensions

More terms from Farideh Firoozbakht, May 13 2005

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

Status

approved