cp's OEIS Frontend

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.

A079075 "Memory" of fibonacci(n): the number of (previous) Fibonacci numbers contained as substrings in fibonacci(n).

This page as a plain text file.
%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