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

Links

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

Formula

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

Example

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.

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 *)

Crossrefs

Cf. A001222, A167746.

Sequence in context: A103390 A167761 A364813 * A218323 A369893 A345136

Adjacent sequences: A176026 A176027 A176028 * A176030 A176031 A176032

Keyword

nonn,easy

Author

Michel Lagneau, Apr 06 2010, corrected Jul 07 2012

Status

approved