A066229 f-perfect numbers, where f(m) = m + 1.
4, 10, 44, 2336, 8896, 34432, 449295, 549775212544, 2251801457852416, 9007202677293056, 9223372167851278336, 20055918935605248255
Offset: 1
Examples
f(10) = 11 = 2 + 3 + 6 = f(1) + f(2) + f(5), hence 10 is a term of the sequence.
Links
- Joseph L. Pe, On a Generalization of Perfect Numbers, J. Rec. Math., 31(3) (2002-2003), 168-172.
- Math StackExchange, Discussion on math.SE.
Programs
-
Mathematica
Select[ Range[ 500000 ], DivisorSigma[ 1, # ] == 2# - DivisorSigma[ 0, # ] + 2 & ] (* Farideh Firoozbakht, Sep 18 2006 *) f[x_] := x + 1; Select[ Range[ 1, 10^5], 2 * f[ # ] == Apply[ Plus, Map[ f, Divisors[ # ] ] ] & ]
-
PARI
isok(m) = sigma(m) == 2*m-numdiv(m)+2; \\ Michel Marcus, Mar 13 2020
Extensions
a(8) from Giovanni Resta, Aug 21 2013
a(9)-a(11) from Farideh Firoozbakht confirmed and a(12) added by Max Alekseyev, Jul 30 2025
Comments