|
%I #3 Mar 30 2012 18:37:43
%S 1,2,7,16,53,130,431,1104,3689,9730,32775,88288,299501
%N Sum of absolute values of lists created by n substitutions k -> Range[ -Abs[k+1],Abs[k-1],2] starting with {1}.
%C Sums of absolute of sublists from A084075.
%e 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
%t Plus@@@Abs/@Flatten/@NestList[ # /. k_Integer :> Range[ -Abs[k+1], Abs[k-1], 2]&, {1}, 12]
%Y Cf. A084075.
%K nonn
%O 0,2
%A _Wouter Meeussen_, May 11 2003
|
