1,2

a(n)<=n; a(n)<n iff n>1 is odd; a(n)=n iff n=2^k;

A001222(a(n)) = A001222(n);

for 3-smooth numbers: a(2^i * 3^j) = 2^(i+j);

result after A061395(n)-1 iterations = A061142(n).

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

Multiplicative with 2->2 and prime(k)->prime(k-1), k>1.

Cf. A005408, A000079, A003586, A003961.

Sequence in context: A171580 A246796 A177235 * A233511 A205793 A178431

Adjacent sequences: A079704 A079705 A079706 * A079708 A079709 A079710

nonn,mult

Reinhard Zumkeller, Jan 31 2003

approved