OFFSET
0,1
COMMENTS
Similar to A358320 but restricted to amicable numbers.
LINKS
Sergei Chernykh, Amicable Numbers.
PROG
(PARI) f(m) = if (m, sigma(m)-m, 0);
fpm(p, m) = (2*p-1)*sigma(m) - p*m;
a(n) = my(p=2^n); forstep(m=1, +oo, 2, my(x=fpm(p, m)); if ((x!=p*m) && (f(x) == p*m), return(m)));
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Michel Marcus, Nov 17 2022
EXTENSIONS
a(12)-a(22) were calculated using Chernykh's database by Amiram Eldar, Nov 17 2022
STATUS
approved