OFFSET
0,8
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Fibonacci Number
EXAMPLE
A000045(40) = 102334155: a(40) = #{0,1,2,3,5,34,55,233} = 8;
A000045(41) = 165580141: a(41) = #{0,1,5,8,55} = 5;
A000045(42) = 267914296: a(42) = #{1,2} = 2;
A000045(43) = 433494437: a(43) = #{3,34} = 2;
A000045(44) = 701408733: a(44) = #{0,1,3,8} = 4;
A000045(45) = 1134903170: a(45) = #{0,1,3,13,34} = 5.
PROG
(Haskell)import Data.List (isInfixOf)
a138385 n = a138385_list !! n
a138385_list = 0 : h [] (map show $ 0 : drop 2 a000045_list) where
h uss (vs:vss) = length [xs | xs <- uss, xs `isInfixOf` vs] :
h (vs : uss) vss
-- Reinhard Zumkeller, Jul 06 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 18 2008
STATUS
approved