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,1

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.

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

Adjacent sequences: A066360 A066361 A066362 * A066364 A066365 A066366

Keyword

nonn

Author

Joseph L. Pe, Dec 20 2001

Extensions

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

Status

approved