|
%I #8 Mar 13 2024 19:21:43
%S 2,3,5,7,11,17,11,13,13,17,19,67,19,23,29,31,53,79,31,37,41,53,61
%N A triangle of coefficients representing an Integer Cyclotomic c(x,n) rotation of the primes: t(n,m)=If[ Prime,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, 3, 5, 35, 24, 13, 103, 19, 23, 192, 223}.
%F t(n,m)=If[ Prime,Floor[C(m/(n+2),Prime(n+1))*Prime(n+1))]].
%e {2},
%e {3},
%e {5},
%e {7, 11, 17},
%e {11, 13},
%e {13},
%e {17, 19, 67},
%e {19},
%e {23},
%e {29, 31, 53, 79},
%e {31, 37, 41, 53, 61}
%t Clear[T, n, m] T[n_, m_] = Floor[Cyclotomic[Prime[n + 1], m/(n + 2)]*Prime[n + 1]]; Table[Flatten[Table[If[PrimeQ[T[n, m]], T[n, m], {}], {m, 0, n}]], {n, 0, 10}]; Flatten[%]
%Y Cf. A141529.
%K nonn,tabf,uned
%O 1,1
%A _Roger L. Bagula_, Sep 04 2008
|
