login
A365939
Gilbreath transform of semiprimes (A001358).
1
4, 2, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1
OFFSET
1,1
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
Leading terms of rows of the array in A131749.
Sequence in context: A113092 A033324 A266145 * A266144 A377366 A016508
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 25 2023
EXTENSIONS
More terms from Pontus von Brömssen, Sep 25 2023
STATUS
approved