OFFSET
1,3
MATHEMATICA
sml[n_]:=Module[{m=0}, While[!PrimeQ[3n-m]||!PrimeQ[3n+m], m++]; m]; DeleteDuplicates[ Array[sml, 3000000], GreaterEqual] (* The program generates the first 43 terms of the sequence. *) (* Harvey P. Dale, Sep 23 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Kimberley, Oct 15 2012
STATUS
approved