OFFSET
1,2
COMMENTS
EXAMPLE
MATHEMATICA
With[{nn = 12}, Table[Function[k, 1 + LengthWhile[#, # > 0 &] &@ Differences@ Table[FactorInteger[m][[-1, 1]], {m, k, k - nn, -1}]][2^n], {n, 105}] ] (* Michael De Vlieger, Jul 24 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 21 2005
STATUS
approved