A377379 a(n) = rad(n)^binomial(bigomega(n) + omega(n), omega(n) + 1), where rad = A007947, bigomega = A001222, and omega = A001221.
1, 2, 3, 8, 5, 1296, 7, 64, 27, 10000, 11, 60466176, 13, 38416, 50625, 1024, 17, 60466176, 19, 10000000000, 194481, 234256, 23, 3656158440062976, 125, 456976, 729, 289254654976, 29, 14348907000000000000000, 31, 32768, 1185921, 1336336, 1500625, 3656158440062976
Offset: 1
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..1679
Programs
-
Mathematica
Array[Binomial[#2 + #1, #1 + 1] & @@ {PrimeNu[#], PrimeOmega[#]} &, 120]
Comments