login
a(n) = n * A062949(n).
2

%I #14 Aug 31 2023 05:31:53

%S 1,6,15,36,45,90,91,200,207,270,231,540,325,546,675,1040,561,1242,703,

%T 1620,1365,1386,1035,3000,1725,1950,2565,3276,1653,4050,1891,5152,

%U 3465,3366,4095,7452,2701,4218,4875,9000,3321,8190,3655,8316,9315,6210,4371,15600

%N a(n) = n * A062949(n).

%H Amiram Eldar, <a href="/A127469/b127469.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = n * A062949(n).

%F Multiplicative with a(p^e) = ((e+1)*p^(2*e+1) - (e+2)*p^(2*e) + p^e)/(p-1). - _Amiram Eldar_, Aug 31 2023

%e a(5) = 45 = 5 * A062949(5) = 5 * 9.

%p A127469 := proc(n) n*A062949(n) ; end proc:

%p seq(A127469(n),n=1..80) ; # _R. J. Mathar_, Feb 09 2011

%t f[p_, e_] := ((e+1)*p^(e+1)-(e+2)*p^e+1)/(p-1); a[1] = 1; a[n_] := n * Times @@ f @@@ FactorInteger[n]; Array[a, 60] (* _Amiram Eldar_, Aug 31 2023 *)

%Y Cf. A062949.

%Y Row sums of triangle A127470.

%K nonn,easy,mult

%O 1,2

%A _Gary W. Adamson_, Jan 15 2007

%E More terms from _Amiram Eldar_, Aug 31 2023