|
%I #29 Feb 17 2022 09:59:49
%S 0,1,1,1,1,2,2,1,2,2,2,1,2,2,2,2,3,3,1,2,2,2,2,3,3,2,3,3,3,1,2,2,2,2,
%T 3,3,2,3,3,3,2,3,3,3,3,4,4,1,2,2,2,2,3,3,2,3,3,3,2,3,3,3,3,4,4,2,3,3,
%U 3,3,4,4,3,4,4,4,1,2,2,2,2,3,3,2,3,3,3,2,3,3,3,3,4,4,2,3,3,3,3,4,4,3,4,4,4,2
%N Number of terms in greedy representation of n in terms of the Lucas numbers.
%C I have been studying A007895 and similar sequences and created this sequence as an analog of A007895 for the Lucas sequence (A000032).
%H Clark Kimberling, <a href="/A116543/b116543.txt">Table of n, a(n) for n = 0..10000</a>
%H Ron Knott, <a href="http://www.maths.surrey.ac.uk/hosted-sites/R.Knott/Fibonacci/fibrep.html">Using the Fibonacci numbers to represent whole numbers</a>.
%F Let L(n) = max(Lucas numbers < n). Then a(0) = 0, a(n) = 1 + a(n-L(n)).
%F a(n) = A007953(A130310(n)). - _Amiram Eldar_, Feb 17 2022
%e a(12)=2 because 12=11+1.
%t s = Reverse[Sort[Table[LucasL[n - 1], {n, 1, 22}]]];
%t 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 *)
%Y Cf. A000032, A007895, A007953, A130310, A131343.
%K nonn,base
%O 0,6
%A _James E Davis_, Mar 28 2006, Jun 07 2006
%E Edited by _N. J. A. Sloane_, Aug 10 2007
%E a(0) added by _Amiram Eldar_, Feb 17 2022
|
