The OEIS is supported by the many generous donors to the OEIS Foundation.

A triangular sequence designed with row sums 2*3^n.

0

`%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
`