login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A155881 a(n) is the number of zeros needed to write the integers 1 through Fibonacci(n). 1
0, 0, 0, 0, 0, 0, 1, 2, 3, 5, 8, 24, 43, 67, 121, 188, 409, 708, 1228, 1946, 4131, 6241, 10525, 17866, 29428, 58369, 87881, 156261, 255242, 412545, 767846, 1280460, 2059307, 3343656, 5510186, 9861418, 16472261, 26422596, 43917688, 73697381, 125281166, 206655249 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,8

COMMENTS

Data suggets a(n) ~= 10 ^ (c * n) where c ~= 0.209. - David A. Corneth, Jan 23 2019

LINKS

David A. Corneth, Table of n, a(n) for n = 1..4770

FORMULA

a(n) = A061217(Fibonacci(n)) = A061217(A000045(n)). - David A. Corneth, Jan 23 2019

EXAMPLE

F(9)=34, so writing the numbers F(1)..F(9) requires 3 zeros (one each at 10, 20, and 30), thus a(9)=3.

MAPLE

A055641 := proc(n) option remember ; local a, d; if n = 0 then RETURN(a) ; fi; a := 0 ; for d in convert(n, base, 10) do if d = 0 then a := a+1 ; fi; od: a ; end: A155881 := proc(n) add(A055641(i), i=1..combinat[fibonacci](n)) ; end: for n from 1 do printf("%d, \n", A155881(n)) ; od; # R. J. Mathar, Feb 19 2009

MATHEMATICA

Block[{n = 32, s}, s = DigitCount[Range@ Fibonacci@ n, 10, 0]; Array[Total@ Take[s, Fibonacci@ #] &, n]] (* Michael De Vlieger, Jan 23 2019 *)

PROG

(PARI) nb(n) = #Set(select(x->(x==0), digits(n))); \\ A055641

a(n) = sum(k=1, fibonacci(n), nb(k)); \\ Michel Marcus, Jan 23 2019

(PARI) a(n) = my(n = fibonacci(n), m=logint(n, 10)); (m+1)*(n+1) - (10^(m+1)-1)/9 + (1/2) * sum(j=1, m+1, (n\10^j * (2*n+2 - (1 + n\10^j) * 10 ^ j) - floor(n/10^j+9/10) * (2*n+2 + ((4/5 - floor(n / 10^j + 9 / 10))*10^j)))) \\ David A. Corneth, Jan 23 2019

CROSSREFS

Cf. A000045, A055641, A061217.

Sequence in context: A136682 A107467 A191425 * A318763 A041731 A041331

Adjacent sequences:  A155878 A155879 A155880 * A155882 A155883 A155884

KEYWORD

nonn,base

AUTHOR

Avik Roy (avik_3.1416(AT)yahoo.co.in), Jan 29 2009

EXTENSIONS

8 more terms from R. J. Mathar, Feb 19 2009

9 more terms from Sean A. Irvine, Dec 10 2009

Edited by Jon E. Schoenfield, Jan 22 2019

More terms from David A. Corneth, Jan 23 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 20 23:46 EDT 2021. Contains 343143 sequences. (Running on oeis4.)