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 A117875 #4 Mar 30 2012 17:34:21
%S A117875 0,1,2,1,2,2,2,3,3,4,3,4,4,5,3,5,6,6,7,5,7,1,2,2,3,1,3,3,6,7,7,8,6,8,
%T A117875 8,7,0,1,1,2,0,2,2,1,0,6,7,7,8,6,8,8,7,6,7,6,7,7,8,6,8,8,7,6,7,7,5,6,
%U A117875 6,7,5,7,7,6,5,6,6,7,4,5,5,6,4,6,6,5,4,5,5,6,4,2,3,3,4,2,4,4,3,2,3,3,4,2,4
%N A117875 Triangle a(n,m) = (A000045(m) mod 3)+ (A000045(n) mod 7) read by rows.
%F A117875 a(n,m) = A082115(m) + A105870(n).
%e A117875 The triangle starts in row n=0 as:
%e A117875 0;
%e A117875 1, 2;
%e A117875 1, 2, 2;
%e A117875 2, 3, 3, 4;
%e A117875 3, 4, 4, 5, 3;
%e A117875 5, 6, 6, 7, 5, 7;
%e A117875 1, 2, 2, 3, 1, 3, 3;
%e A117875 6, 7, 7, 8, 6, 8, 8, 7;
%e A117875 0, 1, 1, 2, 0, 2, 2, 1, 0;
%e A117875 6, 7, 7, 8, 6, 8, 8, 7, 6, 7;
%e A117875 6, 7, 7, 8, 6, 8, 8, 7, 6, 7, 7;
%t A117875 a[0] = 0; a[1] = 1; a[n_] := a[n] = a[n - 1] + a[n - 2] f[n_, m_] := Mod[a[n], 3] + Mod[a[m], 7] aout = Table[Table[f[n, m], {n, 0, m}], {m, 0, 10}] c = Flatten[aout]
%Y A117875 Cf. A000045.
%K A117875 nonn,easy,tabl
%O A117875 0,3
%A A117875 _Roger L. Bagula_, May 13 2006
%E A117875 Fuzzy comments removed, formula added, row and column indices disentangled by Assoc. Eds. of the OEIS - Jun 15 2010