A299920 Motzkin numbers (A001006) mod 6.

1, 1, 2, 4, 3, 3, 3, 1, 5, 1, 4, 2, 1, 3, 0, 0, 3, 3, 0, 0, 3, 3, 3, 3, 3, 1, 2, 4, 1, 5, 1, 3, 3, 3, 4, 2, 1, 1, 5, 1, 3, 3, 0, 0, 3, 3, 0, 0, 3, 3, 0, 0, 3, 3, 3, 3, 3, 3, 0, 0, 3, 3, 0, 0, 3, 3, 0, 0, 3, 3, 3, 3, 3, 3, 0, 0, 3, 3, 0, 4, 5, 1, 4, 2, 1, 3

Offset

0,3

Links

Seiichi Manyama, Table of n, a(n) for n = 0..10000

Maple

f:= gfun:-rectoproc({(3+3*n)*a(n)+(5+2*n)*a(1+n)+(-4-n)*a(n+2), a(0) = 1, a(1) = 1}, a(n), remember):
seq(f(n) mod 6, n=0..100); # Robert Israel, Mar 16 2018

Mathematica

b = DifferenceRoot[Function[{b, n}, {3 (n + 1) b[n] + (2 n + 5) b[n + 1] == (n + 4) b[n + 2], b[0] == 1, b[1] == 1}]];
a[n_] := Mod[b[n], 6];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Feb 26 2019 *)

Crossrefs

Motzkin numbers A001006 read mod 2,3,4,5,6,7,8,11: A039963, A039964, A299919, A258712, A299920, A258711, A299918, A258710.

Sequence in context: A220080 A117113 A343766 * A384436 A352962 A137363

Adjacent sequences: A299917 A299918 A299919 * A299921 A299922 A299923

Keyword

nonn

Author

N. J. A. Sloane, Mar 16 2018

Status

approved