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: A308182 A220080 A343766 * A352962 A137363 A110549

Adjacent sequences: A299917 A299918 A299919 * A299921 A299922 A299923

Keyword

nonn

Author

N. J. A. Sloane, Mar 16 2018

Status

approved