OFFSET
2,13
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..10000
EXAMPLE
Since 24 = 2*3*4, then g_1(24) = 24 + 3 - 1 = 26; analogously, g_1(26) = 26 +2 -1 = 27, g_1(27) = 27 + 2 - 1 = 28, g_1(28) = 28 + 2 - 1 = 29 is in A050376. We used 4 iterations, therefore, a(24) = 4.
MATHEMATICA
f[1]=0; f[n_] := Plus @@ (DigitCount[Last /@ FactorInteger[n], 2, 1]); g[n_] := n + f[n] - 1; a[n_] := Length @ FixedPointList[g, n]; Array[a, 30] (* Amiram Eldar, Sep 17 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Feb 16 2013
EXTENSIONS
a(63) corrected by Amiram Eldar, Sep 17 2019
STATUS
approved