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,3

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

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}]

Crossrefs

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

Sequence in context: A397030 A198502 A244858 * A354782 A064925 A396069

Adjacent sequences: A383078 A383079 A383080 * A383082 A383083 A383084

Keyword

nonn

Author

Michael De Vlieger, Apr 18 2025

Status

approved