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.

A334833 Total length squared of longest runs of 1's in all bitstrings of length n.

This page as a plain text file.
%I A334833 #20 May 26 2020 07:53:30
%S A334833 1,6,21,61,158,386,902,2051,4565,10006,21668,46484,98958,209360,
%T A334833 440627,923299,1927456,4010730,8322242,17226050,35578192,73339778,
%U A334833 150918130,310073773,636173403,1303554560,2667935114,5454522188,11140674850,22733861902,46352349432,94435176992
%N A334833 Total length squared of longest runs of 1's in all bitstrings of length n.
%C A334833 a(n) divided by 2^n is the expected value of the longest run, squared, of heads in n tosses of a fair coin.
%H A334833 Steven Finch, <a href="https://arxiv.org/abs/2005.12185">Variance of longest run duration in a random bitstring</a>, arXiv:2005.12185 [math.CO], 2020.
%F A334833 O.g.f.: Sum_{k>=1} (2*k-1)*(1/(1-2*x) - (1-x^k)/(1-2*x+x^(k+1))).
%e A334833 a(3)=21 because for the 8(2^3) possible runs 0 is longest run of heads once, 1 four times, 2 two times and 3 once and 0*1+1*4+4*2+9*1 = 21.
%t A334833 nn = 10; Drop[Apply[Plus, Table[CoefficientList[Series[(2 n - 1) (1/(1 - 2 x) - (1 - x^n)/(1 - 2 x + x^(n + 1))), {x, 0, nn}], x], {n, 1, nn}]], 1]
%Y A334833 Cf. A119706.
%K A334833 nonn
%O A334833 1,2
%A A334833 _Steven Finch_, May 15 2020