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

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, 33, 45, 67, 19, 21, 24, 28, 34, 42, 56, 84, 23, 25, 28, 32, 38, 45, 57, 76, 114, 29, 31, 35, 39, 45, 53, 63, 79, 106, 159, 31, 33, 37, 41, 46, 53, 61, 74, 92, 123, 185

Offset

0,1

Links

Table of n, a(n) for n=0..65.

Example

{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, 33, 45, 67},
{19, 21, 24, 28, 34, 42, 56, 84},
{23, 25, 28, 32, 38, 45, 57, 76, 114},
{29, 31, 35, 39, 45, 53, 63, 79, 106, 159},
{31, 33, 37, 41, 46, 53, 61, 74, 92, 123, 185}

Mathematica

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[%]

Prog

(PARI) T(n, m)=floor(polcyclo(prime(n+1), m/(n+2))*prime(n+1)) \\ Jason Yuen, Oct 01 2024

Crossrefs

Sequence in context: A295088 A332990 A257815 * A174349 A099004 A308007

Adjacent sequences: A141652 A141653 A141654 * A141656 A141657 A141658

Keyword

nonn,tabl,less

Author

Roger L. Bagula, Sep 04 2008

Extensions

Edited and new name from Jason Yuen, Oct 01 2024

Status

approved