|
%I #11 Mar 11 2023 10:43:04
%S 0,0,0,0,0,0,0,1,2,3,5,8,15,25,40,67,107,175,285,463,749,1214,1966,
%T 3181,5149,8334,13486,21821,35310,57134,92447,149582,242031,391616,
%U 633650,1025270,1658925,2684198,4343125,7027327,11370459,18397790,29768250
%N a(n)=(F(n)-sumofdigits(F(n)))/9, where F(n) = A000045(n).
%H Harvey P. Dale, <a href="/A181065/b181065.txt">Table of n, a(n) for n = 0..1000</a>
%e a(22)=(F(22)-sumofdigits(F(22)))/9=(17711-17)/9=1966
%t f[n_] := Block[{fib = Fibonacci@n}, (fib - Plus @@ IntegerDigits@ fib)/9]; Array[f, 43, 0]
%t (#-Total[IntegerDigits[#]])/9&/@Fibonacci[Range[0,50]] (* _Harvey P. Dale_, Mar 11 2023 *)
%K nonn,base
%O 0,9
%A _Jonathan D. B. Hodgson_, Oct 01 2010
%E Corrected index & offset, added the Mathematica coding and extended the sequence _Robert G. Wilson v_, Oct 02 2010
|
