|
Search: id:A141655
|
|
|
| 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
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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 this_sequence A099004 A055170 A068384
Adjacent sequences: A141652 A141653 A141654 this_sequence A141656 A141657 A141658
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 04 2008
|
|
|
Search completed in 0.005 seconds
|
