OFFSET
0,2
COMMENTS
FORMULA
Drop first 2 terms from A083691 and divide by 2.
EXAMPLE
0, 1 and 2 substitutions produce lengths 1, 3 and 10:
{1}; {-2,0,2}; {-3,-1,1,3, -1,1, -3,-1,1,3}
MATHEMATICA
Table[Length@Flatten[Nest[ #/.k_Integer:>Table[i, {i, -1-Abs[k], Abs[k]+1, 2}]&, {1}, w]], {w, 0, 10}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wouter Meeussen, May 03 2003
STATUS
approved