cp's OEIS Frontend

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.

A341728 Column 1 of A341725.

This page as a plain text file.
%I A341728 #17 Jul 09 2025 04:55:16
%S A341728 1,6,39,324,3365,41958,610351,10146888,189775017,3943689930,
%T A341728 90148635203,2248040395692,60731103481789,1766863166037102,
%U A341728 55075428554246295,1831224444159278736,64692540643308320081,2419861007021854813074,95544948688075940395627
%N A341728 Column 1 of A341725.
%F A341728 From _Mélika Tebni_, Sep 04 2023: (Start)
%F A341728 a(n) = n*A005923(n-1).
%F A341728 E.g.f.: x*exp(x) / (1 - 2*sinh(x)).
%F A341728 a(n) = Sum_{k=0..n} (n-k)*binomial(n, k)*A000557(k). (End)
%p A341728 A341728 := n -> add((n-k)*binomial(n, k)add(j!*combinat[fibonacci](j+2)*Stirling2(k,j), j=0..k), k=0..n):seq(A341728(n), n=1.. 19); # _Mélika Tebni_, Sep 04 2023
%p A341728 # E.g.f. Maple program:
%p A341728 A341728 := series(x*exp(x) / (1 - 2*sinh(x)), x = 0, 20):
%p A341728 seq(n!*coeff(A341728, x, n), n = 1 .. 19); # _Mélika Tebni_, Sep 04 2023
%Y A341728 Cf. A000557, A005923, A341725, A341726, A341727.
%K A341728 nonn
%O A341728 1,2
%A A341728 _N. J. A. Sloane_, Mar 04 2021
%E A341728 More terms from _Mélika Tebni_, Sep 04 2023