|
| |
|
|
A161729
|
|
a(n) = ((4+sqrt(3))*(8+2*sqrt(3))^n-(4-sqrt(3))*(8-2*sqrt(3))^n)/(2*sqrt(3)).
|
|
1
| |
|
|
1, 16, 204, 2432, 28304, 326400, 3750592, 43036672, 493555968, 5658988544, 64878906368, 743795097600, 8527018430464, 97754949812224, 1120674238611456, 12847530427547648, 147285426432966656, 1688495240694988800
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Eighth binomial transform of A162466.
|
|
|
FORMULA
| a(n) = 16*a(n-1)-52(n-2) for n > 1; a(0) = 1, a(1) = 16.
G.f.: 1/(1-16*x+52*x^2). [From Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jun 19 2009]
|
|
|
MATHEMATICA
| Join[{a=1, b=16}, Table[c=16*b-52*a; a=b; b=c, {n, 40}]] (*From Vladimir Joseph Stephan Orlovsky, Feb 08 2011*)
|
|
|
PROG
| (PARI) {default(debug, 0); F=nfinit(x^2-3); for(n=0, 17, print1(nfeltdiv(F, ((4+x)*(8+2*x)^n-(4-x)*(8-2*x)^n), (2*x))[1], ", "))} [From Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jun 19 2009]
|
|
|
CROSSREFS
| Cf. A162466.
Sequence in context: A001810 A016165 A144632 * A157707 A016217 A055758
Adjacent sequences: A161726 A161727 A161728 * A161730 A161731 A161732
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Al Hakanson (hawkuu(AT)gmail.com), Jun 17 2009
|
|
|
EXTENSIONS
| Extended beyond a(5) by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jun 19 2009
Edited by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jul 05 2009
|
| |
|
|
