A377073 a(n) = rad(n)^binomial(bigomega(n) + omega(n) - 1, omega(n)), where rad = A007947, bigomega = A001222, and omega = A001221.

1, 2, 3, 4, 5, 216, 7, 8, 9, 1000, 11, 46656, 13, 2744, 3375, 16, 17, 46656, 19, 1000000, 9261, 10648, 23, 60466176, 25, 17576, 27, 7529536, 29, 590490000000000, 31, 32, 35937, 39304, 42875, 60466176, 37, 54872, 59319, 10000000000, 41, 17080198121677824, 43, 113379904

Offset: 1

Author

Michael De Vlieger, Oct 27 2024

Keywords

• nonn
• easy

Comments

Product of row n of A377070.

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..6719

Crossrefs

Cf. A000203, A001221, A001222, A007947, A024619, A244974, A376248, A377070.

Programs

Mathematica

Table[Apply[Times, FactorInteger[n][[All, 1]]]^Binomial[PrimeOmega[n] + PrimeNu[n] - 1, PrimeNu[n]], {n, 44}]

Formula

For prime power p^k, k >= 0, a(p^k) = p^k.

For n in A024619, a(n) > n.