

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;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

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: A275583 A295088 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



