This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A079075 #2 Feb 11 2014 19:05:40 %S A079075 0,1,0,0,0,0,3,3,1,1,1,2,2,1,2,1,3,3,3,1,2,2,3,2,2,6,3,4,4,3,6,6,4,3, %T A079075 2,5,5,4,4,8,5,3,2,4,5,4,6,3,2,5,5,6,5,5,7,6,5,6,4,6,6,6,7,7,4,5,8,6, %U A079075 3,6,7,5,6,8,6,6,5,6,8,7,6,7,6,5,5,6,7,5,4,5,6,8,7,6,5,6,8,8,10,6 %N A079075 "Memory" of fibonacci(n): the number of (previous) Fibonacci numbers contained as substrings in fibonacci(n). %e A079075 The (previous) Fibonacci numbers contained as substrings in fibonacci(7) = 13 are fibonacci(1) = 1, fibonacci(2) = 1, fibonacci(4) = 3. Hence a(7) = 3. 13 is the smallest Fibonacci number with memory = 3. %t A079075 ub = 100; tfib = Table[ToString[Fibonacci[i]], {i, 1, ub}]; a = {}; For[i = 1, i <= ub, i++, m = 0; For[j = 1, j < i, j++, If[Length[StringPosition[tfib[[i]], tfib[[j]]]] > 0, m = m + 1]]; a = Append[a, m]]; a %Y A079075 Cf. A079066. %K A079075 base,easy,nonn %O A079075 1,7 %A A079075 _Joseph L. Pe_, Feb 02 2003