OFFSET
1,8
COMMENTS
The central factorization of a positive integer m is m*(n/m), where m is the greatest divisor of n that is <= sqrt(n).
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
EXAMPLE
32 = 4*8 = (2*2)*(2*4) = (2*2)*(2*(2*2)), so that a(32) = 3.
MATHEMATICA
f[n_] := Last[Select[Divisors[n], # <= Sqrt[n] &]];
a[1] = 0; a[2] = 0; a[n_] := If[f[n] == 1, 0, 1 + Max[a[f[n]], a[n/f[n]]]];
Table[a[n], {n, 1, 60}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 03 2019
STATUS
approved