|
|
A362255
|
|
a(0) = a(1) = a(2) = 1, for n > 2, a(n) = a(n-1) + a(n-k) + k with k = 2.
|
|
1
|
|
|
1, 1, 1, 4, 7, 10, 16, 25, 37, 55, 82, 121, 178, 262, 385, 565, 829, 1216, 1783, 2614, 3832, 5617, 8233, 12067, 17686, 25921, 37990, 55678, 81601, 119593, 175273, 256876, 376471, 551746, 808624, 1185097, 1736845, 2545471, 3730570, 5467417, 8012890, 11743462, 17210881
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
Called Leonardo 2-numbers in the Tan-Leung paper.
|
|
LINKS
|
|
|
MATHEMATICA
|
LinearRecurrence[{2, -1, 1, -1}, {1, 1, 1, 4}, 40] (* or *)
With[{k = 2}, Nest[Append[#, #[[-1]] + #[[-k - 1]] + k] &, {1, 1, 1}, 40] ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|