Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Mar 04 2013 10:24:32
%S 2,3,2,5,4,3,7,6,5,3,11,10,9,6,10,13,12,11,9,12,12,17,16,15,13,16,16,
%T 14,19,18,17,15,18,18,16,14,23,22,21,19,22,22,20,18,22,29,28,27,25,28,
%U 28,26,24,28,27,31,30,29,27,30,30,28,26,30,29,28
%N A triangle of coefficients representing an Integer Irrational rotation of the primes: t(n,m)=Floor[Re[Exp[I*2*Pi*Mod[m*2*Pi, 1]/(n + 2)]*Prime[n + 1]]]. ( Correction with right numbers).
%C Row sums are:
%C {2, 5, 12, 21, 46, 69, 107, 135, 189, 270, 318}.
%F t(n,m)=Floor[Re[Exp[I*2*Pi*Mod[m*2*Pi, 1]/(n + 2)]*Prime[n + 1]]].
%e {2},
%e {3, 2},
%e {5, 4, 3},
%e {7, 6, 5, 3},
%e {11, 10, 9, 6, 10},
%e {13, 12, 11, 9, 12, 12},
%e {17, 16, 15, 13, 16, 16, 14},
%e {19, 18, 17, 15, 18, 18, 16, 14},
%e {23, 22, 21, 19, 22, 22, 20, 18, 22},
%e {29, 28, 27, 25, 28, 28, 26, 24, 28, 27},
%e {31, 30, 29, 27, 30, 30, 28, 26, 30, 29, 28}
%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,tabl,uned
%O 1,1
%A _Roger L. Bagula_, Sep 04 2008