A105241 - OEIS

A105241

See Mathematica program.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,16

LINKS

Table of n, a(n) for n=1..105.

EXAMPLE

Triangle begins:

0, 1, 1, 1;

0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 2;

0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 0, 1, 1, 1, 1, 2, 2, 2, 1, 3;

...

MATHEMATICA

v[1] = {{0, 1}, {1, 1}};

M = {{{0, 1}, {1, 0}}, {{0, 1}, {1, 1}}};

v[n_] := v[n] = M.v[n - 1];

a = Table[v[n], {n, 1, 6}];

aa = Table[Flatten[Table[Table[a[[n, j]], {j, 1, 2}], {n, 1, m}]], {m, 1, 6}];

Flatten[aa]

CROSSREFS

Sequence in context: A325987 A359324 A353421 * A134541 A286627 A182071

Adjacent sequences: A105238 A105239 A105240 * A105242 A105243 A105244

KEYWORD

nonn,uned,obsc,tabf,less

AUTHOR

Roger L. Bagula, Apr 12 2005

STATUS

approved