A079867 a(1)=1 and for n>1: floor(n^(1/Omega(n)))^Omega(n), where Omega(n) is the total number of prime factors of n (A001222).

1, 2, 3, 4, 5, 4, 7, 8, 9, 9, 11, 8, 13, 9, 9, 16, 17, 8, 19, 8, 16, 16, 23, 16, 25, 25, 27, 27, 29, 27, 31, 32, 25, 25, 25, 16, 37, 36, 36, 16, 41, 27, 43, 27, 27, 36, 47, 32, 49, 27, 49, 27, 53, 16, 49, 16, 49, 49, 59, 16, 61, 49, 27, 64, 64, 64, 67, 64, 64, 64, 71, 32, 73, 64

Offset: 1

Author

Reinhard Zumkeller, Jan 13 2003

Keywords

• nonn

Comments

a(n)<=A079869(n); A020639(n)<=a(n)<=A006530(n);

a(m)=m=A079869(m)=A079871(m) iff m is a prime power (A000961).

Crossrefs

a(n)=A079866(n)^A001222(n), cf. A068794, A068795.

Programs

Mathematica

Join[{1},Table[Floor[n^(1/PrimeOmega[n])]^PrimeOmega[n],{n,2,80}]] (* Harvey P. Dale, May 19 2018 *)