A181065 a(n)=(F(n)-sumofdigits(F(n)))/9, where F(n) = A000045(n).

0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 5, 8, 15, 25, 40, 67, 107, 175, 285, 463, 749, 1214, 1966, 3181, 5149, 8334, 13486, 21821, 35310, 57134, 92447, 149582, 242031, 391616, 633650, 1025270, 1658925, 2684198, 4343125, 7027327, 11370459, 18397790, 29768250

Offset

0,9

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Example

a(22)=(F(22)-sumofdigits(F(22)))/9=(17711-17)/9=1966

Mathematica

f[n_] := Block[{fib = Fibonacci@n}, (fib - Plus @@ IntegerDigits@ fib)/9]; Array[f, 43, 0]
(#-Total[IntegerDigits[#]])/9&/@Fibonacci[Range[0, 50]] (* Harvey P. Dale, Mar 11 2023 *)

Crossrefs

Sequence in context: A371992 A066372 A058519 * A282239 A191792 A151518

Adjacent sequences: A181062 A181063 A181064 * A181066 A181067 A181068

Keyword

nonn,base

Author

Jonathan D. B. Hodgson, Oct 01 2010

Extensions

Corrected index & offset, added the Mathematica coding and extended the sequence Robert G. Wilson v, Oct 02 2010

Status

approved