|
| |
|
|
A141655
|
|
A triangle of coefficients representing an Integer Cyclotomic c(x,n) rotation of the primes: t(n,m)=Floor[C(m/(n+2),Prime(n+1))*Prime(n+1))].
|
|
0
| |
|
|
2, 3, 4, 5, 6, 9, 7, 8, 11, 17, 11, 13, 16, 21, 32, 13, 15, 18, 22, 30, 44, 17, 19, 22, 27, 33, 45, 67, 19, 21, 24, 28, 34, 42, 56, 84, 23, 25, 28, 32, 38, 45, 57, 76, 114, 29, 31, 35, 39, 45, 53, 63, 79, 106, 159, 31, 33, 37, 41, 46, 53, 61, 74, 92, 123, 185
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Row sums are:
{2, 7, 20, 43, 93, 142, 230, 308, 438, 639, 776}.
|
|
|
FORMULA
| t(n,m)=Floor[C(m/(n+2),Prime(n+1))*Prime(n+1))].
|
|
|
EXAMPLE
| {2},
{3, 4},
{5, 6, 9},
{7, 8, 11, 17},
{11, 13, 16, 21, 32},
{13, 15, 18, 22, 30, 44},
{17, 19, 22, 27, 33, 45, 67},
{19, 21, 24, 28, 34, 42, 56, 84},
{23, 25, 28, 32, 38, 45, 57, 76, 114},
{29, 31, 35, 39, 45, 53, 63, 79, 106, 159},
{31, 33, 37, 41, 46, 53, 61, 74, 92, 123, 185}
|
|
|
MATHEMATICA
| Clear[T, n, m]; T[n_, m_] = Floor[Cyclotomic[Prime[n + 1], m/(n + 2)]*Prime[n + 1]]; Table[Table[T[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]
|
|
|
CROSSREFS
| Cf. A141529.
Sequence in context: A128421 A115885 A029964 * A174349 A099004 A055170
Adjacent sequences: A141652 A141653 A141654 * A141656 A141657 A141658
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 04 2008
|
| |
|
|
