|
|
A168673
|
|
Binomial transform of A169609.
|
|
2
|
|
|
1, 4, 10, 20, 38, 74, 148, 298, 598, 1196, 2390, 4778, 9556, 19114, 38230, 76460, 152918, 305834, 611668, 1223338, 2446678, 4893356, 9786710, 19573418, 39146836, 78293674, 156587350, 313174700, 626349398, 1252698794, 2505397588, 5010795178, 10021590358
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Sequence and successive differences are identical to their third differences. See principal sequence A024495. Main diagonal of the array of successive differences is A083595 (1,6,8,20,36,...).
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 3*a(n-1) - 3*a(n-2) + 2*a(n-3) for n > 2; a(0) = 1, a(1) = 4, a(2) = 10.
|
|
MATHEMATICA
|
LinearRecurrence[{3, -3, 2}, {1, 4, 10}, 25] (* G. C. Greubel, Jul 29 2016 *)
RecurrenceTable[{a[0] == 1, a[1] == 4, a[2] == 10, a[n] == 3 a[n-1] - 3 a[n-2] + 2 a[n-3]}, a, {n, 40}] (* Vincenzo Librandi, Jul 30 2016 *)
|
|
PROG
|
(Magma) I:=[1, 4, 10]; [n le 3 select I[n] else 3*Self(n-1)- 3*Self(n-2)+2*Self(n-3): n in [1..40]]; // Vincenzo Librandi, Jul 30 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|