%I #5 Mar 30 2012 18:37:43
%S 1,3,10,38,148,620,2600,11480,50256,229296,1032352,4816736,22118720,
%T 104890048,488768128,2346515840,11058545920,53605825280,254908828160,
%U 1245304583680,5965139153920,29328419056640,141339991746560
%N Length of list generated by n replacements of k by {1k, .., 1+k} with increment 2, starting with {1}.
%C Same sequence starting with {0}: see A083691. Sum of absolute values of list elements gives A083693. Crossreferences cite sequences with similar generation by integersubstitution and length of resulting lists.
%F Drop first 2 terms from A083691 and divide by 2.
%e 0, 1 and 2 substitutions produce lengths 1, 3 and 10:
%e {1}; {2,0,2}; {3,1,1,3, 1,1, 3,1,1,3}
%t Table[Length@Flatten[Nest[ #/.k_Integer:>Table[i, {i, 1Abs[k], Abs[k]+1, 2}]&, {1}, w]], {w, 0, 10}]
%Y Cf. A000108, A001003, A006319.
%K nonn
%O 0,2
%A _Wouter Meeussen_, May 03 2003
