OFFSET
1,8
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..12005
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
FORMULA
a(n) <= A064097(n).
a(A334198(n)) = n for all n >= 0. - Antti Karttunen, May 19 2020
MATHEMATICA
Nest[Append[#1, If[PrimeOmega[#2] <= 1, 0, 1 + #1[[Max@ Differences@ Divisors[#2] ]] ]] & @@ {#, Length@ # + 1} &, {}, 105] (* Michael De Vlieger, May 26 2020 *)
PROG
CROSSREFS
Cf. A334198 (positions of the records, also the first occurrence of each n).
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 04 2019
STATUS
approved