%I #22 Oct 01 2024 03:33:31
%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 T(n,m) = floor(Phi(prime(n+1), m/(n+2))*prime(n+1)), where Phi is the cyclotomic polynomial.
%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 T[n_, m_] = Floor[Cyclotomic[Prime[n + 1], m/(n + 2)]*Prime[n + 1]];
%t Table[Table[T[n, m], {m, 0, n}], {n, 0, 10}];
%t Flatten[%]
%o (PARI) T(n,m)=floor(polcyclo(prime(n+1),m/(n+2))*prime(n+1)) \\ _Jason Yuen_, Oct 01 2024
%K nonn,tabl,less
%O 0,1
%A _Roger L. Bagula_, Sep 04 2008
%E Edited and new name from _Jason Yuen_, Oct 01 2024