1,13

P. Steinbach, Field Guide to Simple Graphs. Design Lab, Albuquerque NM, 1990.

a[1]:=1: a[2]:=0: a[3]:=0: a[4]:=0: a[5]:=0: a[6]:=0: a[7]:=0: a[8]:=0: a[9]:=0: a[10]:=0: for n from 11 to 39 do a[n]:=a[n-1]+9*a[n-2]-8*a[n-3]-28*a[n-4]+21*a[n-5]+35*a[n-6]-20*a[n-7]-15*a[n-8]+5*a[n-9]+a[n-10] od: seq(a[n], n=1..39);

M = {{0, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 5, -15, -20, 35, 21, -28, -8, 9, 1}}; v[1] = {1, 0, 0, 0, 0, 0, 0, 0, 0, 0}; v[n_] := v[n] = M.v[n - 1] a = Table[Floor[v[n][[1]]], {n, 1, 50}]

Cf. A066170.

Sequence in context: A041210 A042413 A041212 this_sequence A037958 A041214 A086457

Adjacent sequences: A122599 A122600 A122601 this_sequence A122603 A122604 A122605

nonn

Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Sep 20 2006

Edited by njas, Oct 08 2006