editing
approved
editing
approved
<a href="/index/Rec#order_36">Index entries for linear recurrences with constant coefficients</a>, signature (1, 1, 0, 0, -1, 0, -1, 0, -1, 0, 1, 2, 1, 0, 1, -1, -1, -2, -1, -1, 1, 0, 1, 2, 1, 0, -1, 0, -1, 0, -1, 0, 0, 1, 1, -1).
approved
editing
proposed
approved
editing
proposed
Drop[LinearRecurrence[{1, 1, 0, 0, -1, 0, -1, 0, -1, 0, 1, 2, 1, 0, 1, -1,
-1, -2, -1, -1, 1, 0, 1, 2, 1, 0, -1, 0, -1, 0, -1, 0, 0, 1, 1, -1},
??
proposed
editing
editing
proposed
??
approved
editing
editing
approved
Table[ Length[ Select[ Partitions[n], First[ # ] == 8 & ]], {n, 1, 60} ]
Append[Table[0, {35}], 1], 128], 27] (* Robert A. Russell, May 17 2018 *)
Two inoperative Mathematica programs deleted by Harvey P. Dale, Dec 04 2022
approved
editing
editing
approved