OFFSET
1,1
LINKS
MATHEMATICA
A365939list[upto_]:=If[upto<4, {}, Module[{d=Select[Range[upto], PrimeOmega[#]==2&]}, Join[{4}, Table[First[d=Abs[Differences[d]]], Length[d]-1]]]]; A365939list[500] (* Paolo Xausa, Sep 25 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 25 2023.
EXTENSIONS
More terms from Pontus von Brömssen, Sep 25 2023
STATUS
approved