|
Search: id:A084079
|
|
|
| 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
|
|
| 1, 2, 7, 16, 53, 130, 431, 1104, 3689, 9730, 32775, 88288, 299501
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
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.
Adjacent sequences: A084076 A084077 A084078 this_sequence A084080 A084081 A084082
Sequence in context: A026571 A100099 A000512 this_sequence A042689 A073998 A129444
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), May 11 2003
|
|
|
Search completed in 0.002 seconds
|
