|
| |
|
|
A142586
|
|
Binomial transform of A014217.
|
|
1
| |
|
|
1, 2, 5, 14, 39, 107, 290, 779, 2079, 5522, 14615, 38579, 101634, 267347, 702455, 1844114, 4838079, 12686507, 33254210, 87141659, 228301839, 598026002, 1566300455, 4101923939, 10741568514, 28126975907, 73647747815, 192833044754, 504884940879, 1321888886747
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| The second term in the k-th iterated differences is 2, 3, 6, 10, 17, 28, 46, ... =A001610(k+1).
|
|
|
FORMULA
| G.f.: (1-3x+2x^2+x^3)/((1-3x+x^2)(1-2x)). a(n)=A005248(n)-2^(n-1), n>0. - R. J. Mathar, Sep 22 2008
a(0)=1, a(1)=2, a(2)=5, a(3)=14, a(n)=5*a(n-1)-7*a(n-2)+2*a(n-3) [From Harvey P. Dale, Aug 08 2011]
|
|
|
MATHEMATICA
| CoefficientList[Series[(1-3x+2x^2+x^3)/((1-3x+x^2)(1-2x)), {x, 0, 30}], x] (* or *) Join[{1}, LinearRecurrence[{5, -7, 2}, {2, 5, 14}, 30]] (* From Harvey P. Dale, Aug 08 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A001011 A148315 A141752 * A202207 A132834 A000641
Adjacent sequences: A142583 A142584 A142585 * A142587 A142588 A142589
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Paul Curtz (bpcrtz(AT)free.fr), Sep 21 2008
|
|
|
EXTENSIONS
| Edited and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 22 2008
|
| |
|
|
