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

Author

Wouter Meeussen, May 11 2003

Keywords

• nonn

Comments

Sums of absolute of sublists from A084075.

Examples

			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
		

Crossrefs

Cf. A084075.

Programs

Mathematica

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