login
A117875
Triangle a(n,m) = (A000045(m) mod 3)+ (A000045(n) mod 7) read by rows.
0
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,3
FORMULA
a(n,m) = A082115(m) + A105870(n).
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
Cf. A000045.
Sequence in context: A070096 A319821 A024154 * A084840 A029278 A125950
KEYWORD
nonn,easy,tabl
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