OFFSET
1,1
MATHEMATICA
skp[n_]:=Module[{k=1}, While[AnyTrue[2n k+{1, -1}, CompositeQ], k++]; k]; DeleteDuplicates[ Join[{2}, Array[skp, 10^6, 2]], GreaterEqual] (* The program generates the first 23 terms of the sequence. *) (* Harvey P. Dale, Mar 30 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Nov 07 2006
STATUS
approved