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.

A127944 Partial sums of A093049.

This page as a plain text file.
%I A127944 #12 Nov 15 2022 18:01:43
%S A127944 0,0,0,2,3,7,11,17,21,29,37,47,56,68,80,94,105,121,137,155,172,192,
%T A127944 212,234,254,278,302,328,353,381,409,439,465,497,529,563,596,632,668,
%U A127944 706,742,782,822,864,905,949,993,1039,1082,1130,1178,1228,1277
%N A127944 Partial sums of A093049.
%H A127944 G. C. Greubel, <a href="/A127944/b127944.txt">Table of n, a(n) for n = 0..10000</a>
%F A127944 a(n) = log_2(2^C(n+1,2)/denominator(C(2n,n)/4^n)).
%F A127944 a(n) = A000217(n) - A005187(n).
%F A127944 a(n) = log_2(A127943(n)).
%t A127944 Table[Log2[2^Binomial[n + 1, 2]/Denominator[Binomial[2 n, n]/4^n]], {n, 0, 100}] (* _G. C. Greubel_, May 01 2018 *)
%t A127944 Accumulate[Join[{0},Table[n-1-IntegerExponent[n,2],{n,80}]]] (* _Harvey P. Dale_, Nov 15 2022 *)
%o A127944 (Magma) [Floor(Log(2,(2^Binomial(n+1,2) / Denominator(Binomial(2*n,n) / 4^n)))): n in [0..80]]; // _Vincenzo Librandi_, May 02 2018
%K A127944 easy,nonn
%O A127944 0,4
%A A127944 _Paul Barry_, Feb 08 2007