OFFSET
0,3
EXAMPLE
The triangle starts in row n=0 as:
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, 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;
MATHEMATICA
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]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, May 13 2006
EXTENSIONS
Fuzzy comments removed, formula added, row and column indices disentangled by Assoc. Eds. of the OEIS - Jun 15 2010
STATUS
approved