login
A066363
The floor[n^(3/4)]-perfect numbers, where f-perfect numbers for an arithmetical function f is defined in A066218.
1
2, 4, 8, 10, 16, 98, 236, 244, 268, 284, 292, 316, 332, 638, 2198, 2282, 2338, 2422, 2674, 4653, 12274, 30753, 65018, 225267, 231478, 289605, 376995, 422684, 449756, 453092, 515175, 521925, 522825, 524325, 527025, 527925, 528225, 534075, 538275, 539025, 540975
OFFSET
1,1
LINKS
J. Pe, On a Generalization of Perfect Numbers, J. Rec. Math., 31(3) (2002-2003), 168-172.
MATHEMATICA
f[x_] := Floor[ x^(3/4)]; Select[ Range[ 2, 10^4], 2 * f[ # ] == Apply[ Plus, Map[ f, Divisors[ # ] ] ] & ]
CROSSREFS
Cf. A066218.
Sequence in context: A177050 A276772 A173063 * A122636 A095726 A322375
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Dec 20 2001
EXTENSIONS
a(21)-a(41) from Amiram Eldar, Sep 26 2019
STATUS
approved