|
Search: id:A157192
|
|
|
| A157192 |
|
A designed triangle sequence:t(n,m)=If[m*(n - m) == 0, 1, If[m <= Floor[n/2], Prime[m]*2^(n + m - 2) + Mod[n, 2], Prime[n - m]*2^(2*n - m - 2) + Mod[n, 2]]]. |
|
+0
1
|
|
| 1, 1, 1, 1, 4, 1, 1, 9, 9, 1, 1, 16, 48, 16, 1, 1, 33, 97, 97, 33, 1, 1, 64, 192, 640, 192, 64, 1, 1, 129, 385, 1281, 1281, 385, 129, 1, 1, 256, 768, 2560, 7168, 2560, 768, 256, 1, 1, 513, 1537, 5121, 14337, 14337, 5121, 1537, 513, 1, 1, 1024, 3072, 10240, 28672, 90112
(list; table; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
Roe sums are:
{1, 2, 6, 20, 82, 262, 1154, 3592, 14338, 43018, 176130,...}.
|
|
FORMULA
|
t(n,m)=If[m*(n - m) == 0, 1, If[m <= Floor[n/2], Prime[m]*2^(n + m - 2) + Mod[n, 2], Prime[n - m]*2^(2*n - m - 2) + Mod[n, 2]]].
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 4, 1},
{1, 9, 9, 1},
{1, 16, 48, 16, 1},
{1, 33, 97, 97, 33, 1},
{1, 64, 192, 640, 192, 64, 1},
{1, 129, 385, 1281, 1281, 385, 129, 1},
{1, 256, 768, 2560, 7168, 2560, 768, 256, 1},
{1, 513, 1537, 5121, 14337, 14337, 5121, 1537, 513, 1},
{1, 1024, 3072, 10240, 28672, 90112, 28672, 10240, 3072, 1024, 1}
|
|
MATHEMATICA
|
Clear[t, n, m];
t[n_, m_] = If[ m*(n - m) == 0, 1, If[m <= Floor[n/2], Prime[m]*2^(n + m - 2) + Mod[ n, 2], Prime[n - m]*2^(2*n - m - 2) + Mod[n, 2]]];
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A082043 A124216 A008459 this_sequence A154982 A146767 A146955
Adjacent sequences: A157189 A157190 A157191 this_sequence A157193 A157194 A157195
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 24 2009
|
|
|
Search completed in 0.002 seconds
|
