OFFSET
0,11
COMMENTS
Up to 10000 the maximum value is 4.
EXAMPLE
3524578 -> 3+5+2+4+5+7+8 = 34 -> 3+4 = 7 -> persistence = 2
MAPLE
with(numtheory): with(combinat): P:=proc(n) local a, t; t:=0; a:=fibonacci(n); while a>9 do t:=t+1; a:=convert(convert(a, base, 10), `+`); od; t;
end: seq(P(i), i=0..10^2);
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Jun 19 2007, corrected Jun 22 2007
EXTENSIONS
Corrected entries and changed Maple code by Paolo P. Lava, Dec 19 2017
STATUS
approved