A019284 Let sigma_m (n) be result of applying sum-of-divisors function m times to n; call n (m,k)-perfect if sigma_m (n) = k*n; sequence gives the (2,7)-perfect numbers.
24, 1536, 47360, 343976, 572941926400
Offset: 1
Links
- Graeme L. Cohen and Herman J. J. te Riele, Iterating the sum-of-divisors function, Experimental Mathematics, 5 (1996), pp. 93-100.
Crossrefs
Programs
-
Mathematica
Select[Range[50000], DivisorSigma[1, DivisorSigma[1, #]]/# == 7 &] (* Robert Price, Apr 07 2019 *)
-
PARI
isok(n) = sigma(sigma(n))/n == 7; \\ Michel Marcus, May 12 2016
Extensions
a(5) from Giovanni Resta, Feb 26 2020
Comments