login
T(n,m) = floor(Phi(prime(n+1), m/(n+2))*prime(n+1)), where Phi is the cyclotomic polynomial.
1

%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