OFFSET
0,3
COMMENTS
See A007623 for the factorial number system representation.
LINKS
A. Karttunen, Table of n, a(n) for n = 0..10080
FORMULA
a(0)=0; for n>0, a(n) = 1 + a(A219651(n)).
MATHEMATICA
nn = 72; m = 1; While[Factorial@ m < nn, m++]; m; Table[Length@ NestWhileList[# - Total@ IntegerDigits[#, MixedRadix[Reverse@ Range[2, m]]] &, n, # > 0 &] - 1, {n, 0, nn}] (* Michael De Vlieger, Jun 27 2016, Version 10.2 *)
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Nov 25 2012
EXTENSIONS
Erroneous description corrected by Antti Karttunen, Dec 03 2012
STATUS
approved