A383081 a(n) = A003557(A089016(n)).

1, 1, 6, 2, 4, 2, 4, 1, 1, 4, 15, 1, 4, 10, 15, 1, 5, 24, 52, 1, 2, 5, 1, 3, 5, 31, 45, 2, 4, 14, 41, 1, 2, 5, 7, 2, 4, 5, 11, 30, 43, 2, 6, 18, 26, 71, 139, 3, 36, 69, 96, 5, 14, 69, 95, 1, 4, 11, 30, 57, 1, 2, 8, 39, 54, 255, 2, 3, 9, 32, 60, 82, 2, 7, 13, 45

Offset: 0

Author

Michael De Vlieger, Apr 18 2025

Keywords

• nonn

Comments

Largest n-round number A089016(n) = k*P. Then a(n) = k = rad(k*P), where P is in A002110 and rad = A007947.

Links

• Michael De Vlieger, Table of n, a(n) for n = 0..5000

Crossrefs

Cf. A002110, A003557, A007947, A048597, A089016, A122936, A122937.

Programs

Mathematica

Table[k = P = 1;
  While[P *= Prime[k]; P < Prime[k + 1]^(n + 1), k++];
  P /= Prime[k]; Floor[Prime[k]^(n + 1)/P], {n, 0, 75}]