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
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
KEYWORD
nonn
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
a(28)-a(29) corrected, a(30)-a(37) added by Max Alekseyev, Aug 31 2024
STATUS
approved