OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..1600 (terms 1..300 from T. D. Noe)
MATHEMATICA
sng1[{t_, a_}]:=Module[{k=2}, While[CompositeQ[t k-1], k++]; {t*k, k}]; NestList[sng1, {2, 2}, 80][[;; , 2]] (* Harvey P. Dale, May 20 2023 *)
PROG
(Python)
from sympy import isprime
from itertools import count
a, p = [2], 2
for _ in range(100):
q = next(filter(lambda x:isprime(x*p-1), count(2)))
p = p*q
a.append(q)
print(a) # Nicholas Stefan Georgescu, Mar 06 2023
CROSSREFS
KEYWORD
nonn,nice,easy
AUTHOR
EXTENSIONS
More terms from Erich Friedman. More terms from Jud McCranie, Jan 26 2000.
STATUS
approved