A066363 The floor[n^(3/4)]-perfect numbers, where f-perfect numbers for an arithmetical function f is defined in A066218.

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

Author

Joseph L. Pe, Dec 20 2001

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..268
• J. Pe, On a Generalization of Perfect Numbers, J. Rec. Math., 31(3) (2002-2003), 168-172.

Crossrefs

Cf. A066218.

Programs

Mathematica

f[x_] := Floor[ x^(3/4)]; Select[ Range[ 2, 10^4], 2 * f[ # ] == Apply[ Plus, Map[ f, Divisors[ # ] ] ] & ]

Extensions

a(21)-a(41) from Amiram Eldar, Sep 26 2019