A385148 a(n) = A001065(A346878(n)).
0, 1, 6, 1, 7, 15, 8, 9, 11, 14, 10, 55, 15, 28, 54, 1, 22, 17, 14, 43, 66, 50, 16, 64, 1, 26, 78, 63, 31, 172, 20, 41, 90, 32, 40, 45, 50, 63, 144, 56, 40, 196, 26, 76, 259, 64, 43, 236, 1, 65, 126, 56, 64, 136, 56, 134, 186, 50, 34, 504, 63, 117, 198, 1, 64, 300, 74, 70, 222, 203
Offset: 1
Keywords
Links
- S. I. Dimitrov, Generalizations of amicable numbers, arXiv:2408.07387 [math.NT], 2024. See Table 2 p. 7.
Programs
-
Mathematica
f[x_] := DivisorSigma[1, x] - x; Table[Nest[f, 2*n, 2], {n, 120}] (* Michael De Vlieger, Jun 19 2025 *) -
PARI
a(n) = my(m=sigma(2*n) - 2*n); sigma(m) - m ;
Comments