|
| |
|
|
A068379
|
|
Engel expansion of sinh(1/2).
|
|
1
| |
|
|
1, 24, 80, 168, 288, 440, 624, 840, 1088, 1368, 1680, 2024, 2400, 2808, 3248, 3720, 4224, 4760, 5328, 5928, 6560, 7224, 7920, 8648, 9408, 10200, 11024, 11880, 12768, 13688, 14640, 15624, 16640, 17688, 18768, 19880, 21024, 22200, 23408, 24648, 25920, 27224
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Cf. A006784 for Engel expansion definition
|
|
|
LINKS
| Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Index to sequences with linear recurrences with constant coefficients, signature (3,-3,1).
|
|
|
FORMULA
| a(0)=1 a(n)=4*n*(4n+2)
|
|
|
MATHEMATICA
| Table[If[n==0, 1, 4n*(4n+2)], {n, 0, 50}] (* From Vladimir Joseph Stephan Orlovsky, Jan 30 2012 *)
|
|
|
PROG
| (MAGMA) [1] cat [4*n*(4*n+2): n in [1..50]]; // Vincenzo Librandi, Jan 31 2012
|
|
|
CROSSREFS
| (PARI) a(n)=if(n,4*n*(4*n+2),1) \\ Charles R Greathouse IV, Jan 31 2012
Sequence in context: A206003 A143839 A114818 * A190102 A060673 A167561
Adjacent sequences: A068376 A068377 A068378 * A068380 A068381 A068382
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Mar 03 2002
|
| |
|
|
