login
A105563
a(n) = if (exactly 4 Fibonacci numbers exist with exactly n digits) then 1, otherwise 0.
4
0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0
OFFSET
1,1
COMMENTS
The sequence is almost periodic, see also A105564;
a(n) = 1 - A105565(n) for n > 1.
REFERENCES
Juergen Spilker, Die Ziffern der Fibonacci-Zahlen, Elemente der Mathematik 58 (Birkhäuser, 2003).
LINKS
Eric Weisstein's World of Mathematics, Fibonacci Number
Eric Weisstein's World of Mathematics, Almost Periodic Function
MATHEMATICA
If[#==4, 1, 0]&/@Tally[IntegerLength/@Fibonacci[Range[500]]][[;; , 2]] (* Harvey P. Dale, Nov 15 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 14 2005
STATUS
approved