OFFSET
0,3
EXAMPLE
The a(0) = 1 through a(2) = 5 chains:
{1} {2,1} {12,1}
{12,2,1}
{12,3,1}
{12,4,1}
{12,4,2,1}
MATHEMATICA
chern[n_]:=Product[Prime[i]^(n-i+1), {i, n}];
chnstr[n_]:=If[n==1, 1, Sum[chnstr[d], {d, Select[Most[Divisors[n]], UnsameQ@@Last/@FactorInteger[#]&]}]];
Table[chnstr[chern[n]], {n, 0, 3}]
CROSSREFS
A337075 is the version for factorials.
A074206 counts chains of divisors from n to 1.
A130091 lists numbers with distinct prime multiplicities.
A181796 counts divisors with distinct prime multiplicities.
A253249 counts chains of divisors.
A327498 gives the maximum divisor with distinct prime multiplicities.
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Aug 14 2020
STATUS
approved