A072655 Binary widths of the terms of A072654.
0, 1, 3, 5, 8, 14, 26, 49, 94, 183, 362, 718, 1429, 2852, 5696, 11384
Offset: 0
Extensions
a(11)-a(15) from Sean A. Irvine, Oct 18 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