login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A334157 Row sums of array A158777. 2
1, 2, 5, 16, 89, 686, 5917, 54860, 588401, 7370074, 103522421, 1573237832, 25869057865, 462768222086, 8965777751309, 186025937645956, 4106375449878497, 96241703493486770, 2390797380938894821, 62730027061416412544 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
LINKS
FORMULA
a(n) = n!*Sum_{k=0..n} A003269(k+1)/(n-k)!.
a(n) = n!*Sum_{k=0..n} Sum_{s=0..floor(k/3)} binomial(k-3*s, s)/(n-k)!.
E.g.f.: exp(x)/(1 - x - x^4).
MAPLE
W := proc(n, m) local v, s, h; v := 0;
for s from 0 to m do
if 0 = (m - s) mod 4 then
h := (m - s)/4;
v := v + binomial(n - s - 3*h, h)/s!;
end if; end do; n!*v; end proc;
seq(add(W(n1, m1), m1 = 0 .. n1), n1 = 0 .. 35);
MATHEMATICA
Table[Apply[Plus, CoefficientList[Expand[t^n*n!*SeriesCoefficient[Series[Exp[t*x]/( 1 - x/t - t^4*x^4), {x, 0, 50}], n]], t]], {n, 0, 40}]; (* Program due to Roger L. Bagula from A158777 *)
CROSSREFS
Sequence in context: A048754 A176343 A327062 * A306020 A357341 A037075
KEYWORD
nonn
AUTHOR
Petros Hadjicostas, Apr 16 2020
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 18:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)