A174122 Partial sums of A001831.
1, 2, 5, 18, 105, 946, 12589, 240482, 6526289, 250119330, 13512676053, 1027978959346, 110155994874553, 16631509898085074, 3540687511804739837, 1063409634646294541250, 450894476653951603096737
Offset: 0
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
2; 2, 4; 6, 12, 8; 38, 60, 48, 16; 390, 500, 360, 160, 32; 6062, 6180, 3840, 1680, 480, 64; ...
nn=6;f[x_,y_]:=Sum[Exp[x 2^n] x^n/n!,{n,0,nn}];Map[Select[#,#>0&]&,Map[Table[#[[i]]->#[[i]]2^(i-1),{i,1,Length[#]}][[All,2]]&,Drop[Range[0,nn]!CoefficientList[Series[f[x,y]^(y/2),{x,0,nn}],{x,y}],1]]]//Grid
Comments