|
%I #14 Aug 11 2019 03:39:50
%S 2,3,4,5,6,12,20,30,72,90,180,300,520,756,1120,1584,2040,3888,4148,
%T 5580,9600,13416,22176,31680,46800,61880,108864,126880,171864,276480,
%U 344232,492480,639600,1039584,1663200,2306304,3454080,6390144
%N Iteration of unitary-sigma function: a(1) = 2, a(n) = usigma(a(n-1)).
%H Amiram Eldar, <a href="/A059460/b059460.txt">Table of n, a(n) for n = 1..6000</a>
%t f[n_] := Times @@ (1 + Power@@@ FactorInteger[n]); NestList[f, 2, 30] (* _Amiram Eldar_, Aug 11 2019 *)
%Y Cf. A007497, A034448.
%K nonn
%O 1,1
%A _Yasutoshi Kohmoto_
%E Corrected by _Jud McCranie_, Oct 28 2001
|
