OFFSET
0,6
COMMENTS
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..10000
FORMULA
Let L(n) = max(Lucas numbers < n). Then a(0) = 0, a(n) = 1 + a(n-L(n)).
EXAMPLE
a(12)=2 because 12=11+1.
MATHEMATICA
s = Reverse[Sort[Table[LucasL[n - 1], {n, 1, 22}]]];
t = Map[Length[Select[Reap[FoldList[(Sow[Quotient[#1, #2]]; Mod[#1, #2]) &, #, s]][[2, 1]], # > 0 &]] &, Range[1000]] (* Peter J. C. Moses, Oct 18 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
James E Davis, Mar 28 2006, Jun 07 2006
EXTENSIONS
Edited by N. J. A. Sloane, Aug 10 2007
a(0) added by Amiram Eldar, Feb 17 2022
STATUS
approved