OFFSET
0,5
EXAMPLE
{1},
{1, 1},
{1, 3, 1},
{1, 3, 3, 1},
{1, 3, 7, 3, 1},
{1, 3, 7, 7, 3, 1},
{1, 3, 7, 15, 7, 3, 1},
{1, 3, 7, 15, 15, 7, 3, 1},
{1, 3, 7, 15, 31, 15, 7, 3, 1},
{1, 3, 7, 15, 31, 31, 15, 7, 3, 1},
{1, 3, 7, 15, 31, 63, 31, 15, 7, 3, 1}
MATHEMATICA
Table[Table[If[m < = Floor[n/2], 2^(m + 1) - 1, 2^(n - m + 1) - 1], {m, 0, n}], {n, 0, 10}]; Flatten'%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula and Gary W. Adamson, Oct 16 2008
EXTENSIONS
Offset changed to 0 by Georg Fischer, Jun 08 2023
STATUS
approved