A117875 Triangle a(n,m) = (A000045(m) mod 3)+ (A000045(n) mod 7) read by rows.

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, 5, 6, 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

Offset: 0

Author

Roger L. Bagula, May 13 2006

Keywords

• nonn
• easy
• tabl

Examples

			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;
		

Crossrefs

Cf. A000045.

Programs

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]

Formula

a(n,m) = A082115(m) + A105870(n).

Extensions

Fuzzy comments removed, formula added, row and column indices disentangled by Assoc. Eds. of the OEIS - Jun 15 2010