OFFSET
1,3
COMMENTS
For the definition of "region of n" see A206437.
EXAMPLE
Written has a triangle:
0,
1,
3,
4, 8;
10, 15;
16, 20, 22, 31;
33, 38, 41, 51;
52, 56, 58, 67, 71, 74, 90;
92, 97,100,110,112,119,123,142;
143,147,149,158,162,165,181,184,192,197,201,228;
230,235,238,248,250,257,261,280,284,287,299,305,310,341;
MATHEMATICA
lex[n_]:=DeleteCases[Sort@PadRight[Reverse /@ IntegerPartitions@n], x_ /; x==0, 2];
reg = {}; l = {};
For[j = 1, j <= 56, j++,
mx = Max@lex[j][[j]]; AppendTo[l, mx];
For[i = j, i > 0, i--, If[l[[i]] > mx, Break[]]];
t = Take[Reverse[First /@ lex[mx]], j - i];
AppendTo[reg, Total@t - Length@t]
];
Accumulate@reg (* _Robert Price_, Jul 25 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
_Omar E. Pol_, Apr 23 2012
STATUS
approved