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

1, 2, 3, 2, 5, 2, 7, 2, 3, 3, 11, 2, 13, 4, 4, 2, 17, 3, 19, 3, 5, 5, 23, 2, 5, 5, 3, 3, 29, 3, 31, 2, 6, 6, 6, 2, 37, 6, 6, 3, 41, 3, 43, 4, 4, 7, 47, 2, 7, 4, 7, 4, 53, 3, 7, 3, 8, 8, 59, 3, 61, 8, 4, 2, 8, 4, 67, 4, 8, 4, 71, 2, 73, 9, 4, 4, 9, 4, 79, 2, 3, 9, 83, 3, 9, 9, 9, 3, 89, 3, 10, 5, 10, 10

Offset

1,2

Comments

A079866(n)<=a(n)<=A079870(n); A020639(n)<=a(n)<=A006530(n);

a(m)=A079866(m)=A079870(m) iff m is a prime power (A000961).

Links

Table of n, a(n) for n=1..94.

Mathematica

Join[{1}, Table[Floor[n^(1/PrimeOmega[n])+1/2], {n, 2, 100}]] (* Harvey P. Dale, Aug 11 2012 *)

Crossrefs

Cf. A079869(n)=a(n)^A001222(n), A079881.

Sequence in context: A126594 A363895 A086765 * A280697 A088444 A108077

Adjacent sequences: A079865 A079866 A079867 * A079869 A079870 A079871

Keyword

nonn

Author

Reinhard Zumkeller, Jan 13 2003

Status

approved