OFFSET
1,1
COMMENTS
Column 9 of A181253.
LINKS
R. H. Hardin, Table of n, a(n) for n=1..200
Robert Israel, Maple-assisted derivation of recurrence
Robert Israel, Linear recurrence of order 48
FORMULA
Linear recurrence of order 48: see link. - Robert Israel, Apr 02 2020
MAPLE
for i from 1 to 512 do Configs[i]:= convert(2^9+i-1, base, 2)[1..9] od:
Compatible:= proc(i, j)
if `and`(seq(evalb(Configs[i][k] + Configs[i][k+1] + Configs[j][k]+Configs[j][k+1] < 4), k=1..8)) then 1 else 0 fi
end proc:
T:= Matrix(512, 512, Compatible):
v:= Vector(512, 1):
TV[0]:= v:
for nn from 1 to 23 do TV[nn]:= T . TV[nn-1] od:
seq(v^%T . TV[n], n=0..23); # Robert Israel, Apr 02 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
R. H. Hardin, Oct 10 2010
STATUS
approved