|
| |
|
|
A121991
|
|
a(n) = 3*a(n-1) - a(n-2) - a(n-3) + 12.
|
|
0
| |
|
|
0, 1, 13, 50, 148, 393, 993, 2450, 5976, 14497, 35077, 84770, 204748, 494409, 1193721, 2882018, 6957936, 16798081, 40554301, 97906898, 236368324, 570643785, 1377656145, 3325956338, 8029569096, 19385094817
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
FORMULA
| a(n) = (-22 + (11 - 7 Sqrt[2])*(1 - Sqrt[2])^n + (1 + Sqrt[2])^n*(11 + 7 Sqrt[2]) - 24 n)/4 .
O.g.f.: -x(1+9x+2x^2)/((1-x)^2*(x^2+2x-1)) . - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 22 2008
a(n)= -6(n+1)+(1+11*A000129(n+1)+3*A000129(n))/2. - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 22 2008
|
|
|
MATHEMATICA
| f[n_Integer] = Module[{a}, a[n] /. RSolve[{a[n] == 3*a[n - 1] - a[n - 2] - a[n - 3] + 12, a[0] == 0, a[1] == 1, a[2] == 13}, a[n], n][[1]] // FullSimplify] a = Rationalize[N[Table[f[n], {n, 0, 25}], 100], 0]
|
|
|
CROSSREFS
| Cf. A003215, A005891.
Sequence in context: A197663 A189054 A050410 * A121990 A050491 A022283
Adjacent sequences: A121988 A121989 A121990 * A121992 A121993 A121994
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 10 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Aug 24 2008, Dec 30 2008
|
| |
|
|
