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))].

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

Offset

1,1

Comments

The name contains an unmatched parenthesis. - Editors, Mar 13 2024

Row sums are:

{2, 7, 20, 43, 93, 142, 230, 308, 438, 639, 776}.

Links

Table of n, a(n) for n=1..66.

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: A295088 A332990 A257815 * A174349 A099004 A308007

Adjacent sequences: A141652 A141653 A141654 * A141656 A141657 A141658

Keyword

nonn,tabl,uned

Author

Roger L. Bagula, Sep 04 2008

Status

approved