OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Martin Burtscher, Igor Szczyrba, Rafał Szczyrba, Analytic Representations of the n-anacci Constants and Generalizations Thereof, Journal of Integer Sequences, Vol. 18 (2015), Article 15.4.5.
Jürgen Spilker, Die Ziffern der Fibonacci-Zahlen, Elemente der Mathematik 58 (Birkhäuser 2003).
Eric Weisstein's World of Mathematics, Fibonacci Number
Eric Weisstein's World of Mathematics, Almost Periodic Function
MAPLE
n:= 1: count:= 2: a:= 0: b:= 1:
for m from 2 while n < 101 do
c:= b; b:= a+b; a:= c;
s:= ilog10(b)+1;
if s = n then count:= count+1
else
if count = 5 then A[n]:= 1 else A[n]:= 0 fi;
count:= 1; n:= s
fi
od:
seq(A[i], i=1..100); # Robert Israel, Dec 17 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 14 2005
STATUS
approved