

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
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


LINKS

Table of n, a(n) for n=0..104.


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
Adjacent sequences: A117872 A117873 A117874 * A117876 A117877 A117878


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



