A072642 Binary widths of the terms of A072640.
0, 1, 2, 4, 7, 12, 19, 34, 62, 105, 184, 326, 568, 986, 1726
Offset: 0
Extensions
a(11)-a(14) from Sean A. Irvine, Oct 17 2024
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.
A072639 := proc(n) local i; add(2^((2^i)-1),i=0..(n-1)); end;
a[n_] := Sum[2^(2^i - 1), {i, 0, n - 1}]; Table[a[n], {n, 0, 9}] (* Jean-François Alcover, Mar 06 2016 *)
a(n) = if (n, sum(i=0, n-1, 2^((2^i)-1)), 0); \\ Michel Marcus, Mar 06 2016
a[ -1]:=0:a[0]:=1:for n from 1 to 50 do a[n]:=binomial(a[n-1]+2,2) od: seq(a[n], n=-1..9); # Zerinvary Lajos, Jun 08 2007
Clear[a]; a[0] = 0; a[n_] := a[n] = 1 + (a[n-1]*(a[n-1]+3))/2; Table[a[n], {n, 0, 9}] (* Jean-François Alcover, Jan 31 2013 *)
Comments