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.

A123165 Row sums of A123163.

This page as a plain text file.
%I A123165 #22 Jul 20 2023 07:26:08
%S A123165 1,1,2,5,11,143,1847,24127,2101931,96398196,9362963203,3376252046640,
%T A123165 551993132054154,434634824535802596,528116646162507517308,
%U A123165 372831439174848001477184,2029862948426766042724907818
%N A123165 Row sums of A123163.
%H A123165 Seiichi Manyama, <a href="/A123165/b123165.txt">Table of n, a(n) for n = 0..94</a>
%F A123165 Limit_{n-> oo} a(n)^(1/n^2) = (1-2*r)^r / r^(2*r) = 1.2915356633069917227119166..., where r = A323778 = 0.365498498219858044579736... is the root of the equation (1-r)^(2-2*r) * r^(2*r) = 1-2*r. - _Vaclav Kotesovec_, Mar 04 2014
%t A123165 A123163[n_, k_]= ((n-k)^2)!/((k^2)!(n^2-2*n*k)!);
%t A123165 Table[Sum[A123163[n,k], {k,0,n/2}], {n,0,20}]
%t A123165 Table[Sum[Binomial[(n-k)^2,k^2], {k,0,n}], {n,0,20}] (* _Vaclav Kotesovec_, Mar 04 2014 *)
%o A123165 (PARI) {a(n) = sum(k=0, n\2, binomial((n-k)^2, k^2))} \\ _Seiichi Manyama_, Jan 28 2019
%o A123165 (Magma) [(&+[Binomial((n-k)^2, k^2): k in [0..Floor(n/2)]]): n in [0..30]]; // _G. C. Greubel_, Jul 19 2023
%o A123165 (SageMath)
%o A123165 def A123165(n): return sum(binomial((n-k)^2, k^2) for k in range(n//2+1))
%o A123165 [A123165(n) for n in range(31)] # _G. C. Greubel_, Jul 19 2023
%Y A123165 Cf. A123163, A206851.
%K A123165 nonn
%O A123165 0,3
%A A123165 _Roger L. Bagula_, Oct 02 2006
%E A123165 Edited by _N. J. A. Sloane_, Oct 04 2006