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.

A348703 a(n) = Sum_{x_1+x_2+ ... +x_n=n, 0 <= x_1, x_2, ... , x_n <= n} ((n-1)*n)!/((n-x_1)! * (n-x_2)! * ... * (n-x_n)!).

This page as a plain text file.
%I A348703 #9 Oct 31 2021 09:36:38
%S A348703 1,1,4,510,6745200,19038823123320,19549762329157865925120,
%T A348703 11131011767163918530071193512089600,
%U A348703 4977434038774545402380656971924547417738384800000
%N A348703 a(n) = Sum_{x_1+x_2+ ... +x_n=n, 0 <= x_1, x_2, ... , x_n <= n} ((n-1)*n)!/((n-x_1)! * (n-x_2)! * ... * (n-x_n)!).
%o A348703 (Ruby)
%o A348703 def f(n)
%o A348703   return 1 if n < 2
%o A348703   (1..n).inject(:*)
%o A348703 end
%o A348703 def A(k, n)
%o A348703   sum = 0
%o A348703   m = f((k - 1) * n)
%o A348703   (0..n).to_a.repeated_permutation(k){|i|
%o A348703     if (0..k - 1).inject(0){|s, j| s + i[j]} == n
%o A348703       sum += m / (0..k - 1).inject(1){|s, j| s * f(n - i[j])}
%o A348703     end
%o A348703   }
%o A348703   sum
%o A348703 end
%o A348703 def A348703(n)
%o A348703   (0..n).map{|i| A(i, i)}
%o A348703 end
%o A348703 p A348703(7)
%Y A348703 Cf. A000079, A092472, A348700.
%Y A348703 Cf. A000312, A348704.
%K A348703 nonn
%O A348703 0,3
%A A348703 _Seiichi Manyama_, Oct 30 2021