|
| |
|
|
A137531
|
|
a(n)=3a(n-1)-2a(n-2)+a(n-3).
|
|
8
| |
|
|
1, 4, 10, 23, 53, 123, 286, 665, 1546, 3594, 8355, 19423, 45153, 104968, 244021, 567280, 1318766, 3065759, 7127025, 16568323, 38516678, 89540413, 208156206, 483904470, 1124941411, 2615171499, 6079536145, 14133206848, 32855719753
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| Index to sequences with linear recurrences with constant coefficients, signature (3,-2,1).
|
|
|
FORMULA
| G.f.: (-x^3 + 3*x^2 - 2*x + 1)/(-x^3 + 2*x^2 - 3*x + 1). - Alexander R. Povolotsky (pevnev(AT)juno.com), Apr 25 2008
|
|
|
MATHEMATICA
| a=0; b=1; c=2; lst={}; Do[AppendTo[lst, a+=b]; b+=c; c+=a, {n, 5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 20 2009]
|
|
|
PROG
| (PARI) a=[1, 4, 10]; for(i=1, 99, a=concat(a, 3*a[#a]-2*a[#a-1]+a[#a-2])); a \\ Charles R Greathouse IV, Jun 01 2011
|
|
|
CROSSREFS
| Cf. A159347, A097550.
Sequence in context: A118645 A200759 * A159347 A102549 A008258 A008251
Adjacent sequences: A137528 A137529 A137530 * A137532 A137533 A137534
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Paul Curtz (bpcrtz(AT)free.fr), Apr 25 2008
|
|
|
EXTENSIONS
| More terms, added Mathematica program Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 20 2009
|
| |
|
|
