A127469 a(n) = n * A062949(n).
1, 6, 15, 36, 45, 90, 91, 200, 207, 270, 231, 540, 325, 546, 675, 1040, 561, 1242, 703, 1620, 1365, 1386, 1035, 3000, 1725, 1950, 2565, 3276, 1653, 4050, 1891, 5152, 3465, 3366, 4095, 7452, 2701, 4218, 4875, 9000, 3321, 8190, 3655, 8316, 9315, 6210, 4371, 15600
Offset: 1
Examples
a(5) = 45 = 5 * A062949(5) = 5 * 9.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Maple
A127469 := proc(n) n*A062949(n) ; end proc: seq(A127469(n),n=1..80) ; # R. J. Mathar, Feb 09 2011
-
Mathematica
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 *)
Formula
a(n) = n * A062949(n).
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
Extensions
More terms from Amiram Eldar, Aug 31 2023