A084079 Sum of absolute values of lists created by n substitutions k -> Range[ -Abs[k+1],Abs[k-1],2] starting with {1}.

1, 2, 7, 16, 53, 130, 431, 1104, 3689, 9730, 32775, 88288, 299501

Offset

0,2

Comments

Sums of absolute of sublists from A084075.

Links

Table of n, a(n) for n=0..12.

Example

Sums of absolute values of {1}, {-2,0}, {-1,1,3,-1,1}, {0,2,-2,0,-4,-2,0,2,0,2,-2,0} are 1,2,7,16

Mathematica

Plus@@@Abs/@Flatten/@NestList[ # /. k_Integer :> Range[ -Abs[k+1], Abs[k-1], 2]&, {1}, 12]

Crossrefs

Cf. A084075.

Sequence in context: A330227 A322192 A000512 * A286848 A239425 A042689

Adjacent sequences: A084076 A084077 A084078 * A084080 A084081 A084082

Keyword

nonn

Author

Wouter Meeussen, May 11 2003

Status

approved