A176029 a(n)= n^Omega(n).

1, 2, 3, 16, 5, 36, 7, 512, 81, 100, 11, 1728, 13, 196, 225, 65536, 17, 5832, 19, 8000, 441, 484, 23, 331776, 625, 676, 19683, 21952, 29, 27000, 31, 33554432, 1089, 1156, 1225, 1679616, 37, 1444, 1521, 2560000, 41, 74088, 43, 85184, 91125, 2116, 47

Offset: 1

Author

Michel Lagneau, Apr 06 2010, corrected Jul 07 2012

Keywords

• nonn
• easy

Examples

			a(1) = 1^0 = 1 ; a(2) = 2^1 = 2 ; a(3) = 3^1 = 3 ; a(4) = 4^2 = 16 ; a(12) = 12^3 = 1728.
		

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001222, A167746.

Programs

Maple

A176029 := proc(n)
      n^numtheory[bigomega](n) ;
end proc: # R. J. Mathar, Jul 08 2012

Mathematica

Array[ #^Plus @@ Last /@ FactorInteger[ # ] &, 105]
PrimeOmega[Range[120]] (* Jul 07 2012 *)

Formula

a(n) = n^A001222(n).