|
Search: id:A133148
|
|
|
| A133148 |
|
E.g.f.: Sum(x^k/k!/Product(1-x^i,i=1..k),k=1..inf). |
|
+0
1
|
|
| 1, 3, 10, 53, 286, 2227, 16682, 164089, 1619506, 19139231, 228289282, 3233324437, 45177961154, 727739459371, 11876754782146, 215081192780657, 3943187021584642, 80187760712122039, 1635670770628012706
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MAPLE
|
A133148 := proc(n) local egf, k, i, tmp; egf := 0 ; for k from 1 to n do tmp := x^k/k! ; for i from 1 to k do tmp := taylor( tmp/(1-x^i), x=0, n+1) ; od: egf := egf+tmp ; od: coeftayl(egf*n!, x=0, n) ; end: seq(A133148(n), n=1..25) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 28 2007
|
|
MATHEMATICA
|
Rest[ Range[0, 15]!* CoefficientList[ Series[ Sum[x^k/k!/Product[(1 - x^i), {i, k}], {k, 15}], {x, 0, 15}], x]] (* Robert G. Wilson v (rgwv@rgwv.com), Oct 07 2007 *)
|
|
CROSSREFS
|
Sequence in context: A052446 A002873 A042171 this_sequence A143599 A135829 A071895
Adjacent sequences: A133145 A133146 A133147 this_sequence A133149 A133150 A133151
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Vladeta Jovovic (vladeta(AT)Eunet.yu), Sep 22 2007
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 28 2007
|
|
|
Search completed in 0.002 seconds
|
