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

Comments

Product of row n of A377070.

Links

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

Formula

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A073787 A274028 A037436 * A115900 A349486 A010347

Adjacent sequences: A377070 A377071 A377072 * A377074 A377075 A377076

Keyword

nonn,easy

Author

Michael De Vlieger, Oct 27 2024

Status

approved