OFFSET
1,2
COMMENTS
LINKS
Graeme L. Cohen and Herman J. J. te Riele, Iterating the sum-of-divisors function, Experimental Mathematics, 5 (1996), pp. 93-100.
Experimental Mathematics, Volume 5 (1996) ["Outdated Archival Version" as of 2005.]
PROG
(PARI) apply( {A019295(n, s=n)=while((s=sigma(s))%n, ); s\n}, [1..50]) \\ M. F. Hasler, Jan 08 2020
(Magma) f:=func<n|DivisorSigma(1, n)>; a:=[]; for n in [1..41] do k:=n; while f(k) mod n ne 0 do k:=f(k); end while; Append(~a, f(k) div n); end for; a; // Marius A. Burtea, Jan 11 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Max Alekseyev, Sep 22 2016
Edited by M. F. Hasler, Jan 08 2020
STATUS
approved