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