login
A084079
Sum of absolute values of lists created by n substitutions k -> Range[ -Abs[k+1],Abs[k-1],2] starting with {1}.
0
1, 2, 7, 16, 53, 130, 431, 1104, 3689, 9730, 32775, 88288, 299501
OFFSET
0,2
COMMENTS
Sums of absolute of sublists from A084075.
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
KEYWORD
nonn
AUTHOR
Wouter Meeussen, May 11 2003
STATUS
approved