|
MATHEMATICA
|
LinearRecurrence[{1, 2, 3, 5, 6, -1, -1, 0, -1, -1}, {1, 2, 6, 18, 46, 115, 301, 792, 2068, 5380}, 30] (* Harvey P. Dale, Aug 15 2014 *)
|
|
PROG
|
(PARI) a(n)=([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, -1, 0, -1, -1, 6, 5, 3, 2, 1]^(n-1)*[1; 2; 6; 18; 46; 115; 301; 792; 2068; 5380])[1, 1] \\ Charles R Greathouse IV, Jul 28 2015
|