%I #8 Mar 13 2024 19:21:32
%S 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,
%T 33,45,67,19,21,24,28,34,42,56,84,23,25,28,32,38,45,57,76,114,29,31,
%U 35,39,45,53,63,79,106,159,31,33,37,41,46,53,61,74,92,123,185
%N 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))].
%C The name contains an unmatched parenthesis. - Editors, Mar 13 2024
%C Row sums are:
%C {2, 7, 20, 43, 93, 142, 230, 308, 438, 639, 776}.
%F t(n,m)=Floor[C(m/(n+2),Prime(n+1))*Prime(n+1))].
%e {2},
%e {3, 4},
%e {5, 6, 9},
%e {7, 8, 11, 17},
%e {11, 13, 16, 21, 32},
%e {13, 15, 18, 22, 30, 44},
%e {17, 19, 22, 27, 33, 45, 67},
%e {19, 21, 24, 28, 34, 42, 56, 84},
%e {23, 25, 28, 32, 38, 45, 57, 76, 114},
%e {29, 31, 35, 39, 45, 53, 63, 79, 106, 159},
%e {31, 33, 37, 41, 46, 53, 61, 74, 92, 123, 185}
%t 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[%]
%Y Cf. A141529.
%K nonn,tabl,uned
%O 1,1
%A _Roger L. Bagula_, Sep 04 2008
|