|
%I #2 Mar 30 2012 17:34:28
%S 2,3,3,2,14,2,2,25,25,2,2,36,86,36,2,2,47,194,194,47,2,2,56,304,734,
%T 304,56,2,2,69,410,3412,410,69,2,2,80,518,5961,5961,518,80,2
%N A triangular sequence designed with row sums 2*3^n.
%C Row sums are:
%C {2, 6, 18, 54, 162, 486., 1458, 4374., 13122,...}.
%C Sequence was calculated to the 3^n level by hand.
%e {2},
%e {3, 3},
%e {2, 14, 2},
%e {2, 25, 25, 2},
%e {2, 36, 86, 36, 2},
%e {2, 47, 194, 194, 47, 2},
%e {2, 56, 304, 734, 304, 56, 2},
%e {2, 69, 410, 3412, 410, 69, 2},
%e {2, 80, 518, 5961, 5961, 518, 80, 2}
%t a = {{1},
%t {3/2, 3/2},
%t {1, 7, 1},
%t {1, 25/2, 25/2, 1},
%t {1, 18, 43, 18, 1},
%t {1, 23.5, 97, 97, 23.5, 1},
%t {1, 28, 152, 367, 152, 28, 1},
%t {1, 34.5, 205,1706, 205, 34.5, 1},
%t {1, 40, 259, 2980.5, 2980.5, 259, 40, 1}}
%t b = Rationalize[2*a];
%t Flatten[b]
%K nonn,tabl
%O 0,1
%A _Roger L. Bagula_, Dec 23 2008
|
