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.

A290032 a(0)=0; for n > 0, a(n) is the sum of the partial sums of binary digits of a(n-1) + 1, starting from the least significant digit, and given weights 1, 2, 2^2, etc.

This page as a plain text file.
%I A290032 #21 Aug 31 2017 14:20:22
%S A290032 0,1,2,5,10,37,154,1125,9114,121957,1188762,19782757,449979290,
%T A290032 7603084389,147015738266,4800786586725,197509352924058,
%U A290032 6557890088131685,254650888299357082,7815799643948571749,315002221645968581530
%N A290032 a(0)=0; for n > 0, a(n) is the sum of the partial sums of binary digits of a(n-1) + 1, starting from the least significant digit, and given weights 1, 2, 2^2, etc.
%e A290032 a(4) is computed as follows: a(3) + 1 = 6 = 110_2; the partial sums of digits and their weights are (0,1), (0+1,2), and (0+1+1,4), so the sum of partial sums is 0*1 + 1*2 + 2*4 = 10.
%t A290032 PartialSums = Function[Accumulate[Reverse[IntegerDigits[#, 2]]]]
%t A290032 NestList[Total[# Power[2, Range[0, Length[#] - 1]]] &[PartialSums[1 + #]] &, 0, 20]
%K A290032 base,nonn,easy
%O A290032 0,3
%A A290032 _Emanuel Landeholm_, Jul 18 2017