OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..30
MATHEMATICA
p = 1; Do[ If[ Mod[p = NextPrime[p], n] == 8, Print[n]], {n, 1, 10^9}] (* Robert G. Wilson v, Feb 18 2004 *)
PROG
(Sage)
def A023150(max):
terms = []
p = 2
for n in range(1, max+1) :
if (p - 8) % n == 0 : terms.append(n)
p = next_prime(p)
return terms
# Eric M. Schmidt, Feb 05 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Robert G. Wilson v, Feb 18 2004
a(15)-a(18) from Robert G. Wilson v, Feb 22 2006
First two terms inserted by Eric M. Schmidt, Feb 05 2013
Terms a(19) and beyond from Giovanni Resta, Feb 23 2020
STATUS
approved