OFFSET
1,1
MATHEMATICA
k = 7; a = {}; Do[If[PrimeQ[k n + 1], k = k n; AppendTo[a, n]], {n, 1, 3000}]; a (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 19 2008
EXTENSIONS
Definition corrected by Georg Fischer, Jun 18 2021
STATUS
approved