|
| |
|
|
A033464
|
|
Logarithmic (or "LOG") transform of squares A000290.
|
|
10
|
|
|
|
1, 3, -1, -26, 29, 756, -1793, -45744, 189513, 4700260, -30515629, -730341600, 6948349069, 159130156836, -2123506814505, -46081244842304, 838034409016721, 17029766318842692, -414549408916313189, -7774211453384941440, 251026027696302116181, 4263756050277024153028
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Alois P. Heinz, Table of n, a(n) for n = 0..435
|
|
|
FORMULA
|
E.g.f.: exp(x)*(1 + 3*x + x^2)/(1 + exp(x)*x*(1 + x)). - Ilya Gutkovskiy, Mar 06 2018
|
|
|
MAPLE
|
logtr:= proc(p) local b; b:= proc(n) option remember; if n=0 then 1 else p(n)- add(k *binomial(n, k) *p(n-k) *b(k), k=1..n-1)/n fi end; n->b(n+1) end: a:= logtr(n-> n^2): seq(a(n), n=0..25); # Alois P. Heinz, Sep 14 2008
|
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[(Exp[x](1+3x+x^2))/(1+Exp[x]x(1+x)), {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Feb 03 2019 *)
|
|
|
CROSSREFS
|
Cf. A000290, A033462.
Sequence in context: A098815 A300457 A289329 * A170924 A173007 A113099
Adjacent sequences: A033461 A033462 A033463 * A033465 A033466 A033467
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
N. J. A. Sloane.
|
|
|
STATUS
|
approved
|
| |
|
|
