A182311 Numbers k such that k is equal to the sum of the proper divisors of k that are greater than k^(1/3).

18, 196, 222, 246, 258, 282, 318, 354, 366, 402, 426, 438, 474, 498, 534, 582, 606, 618, 642, 654, 678, 762, 786, 822, 834, 894, 906, 942, 978, 1002, 1038, 1074, 1086, 1146, 1158, 1182, 1194, 1266, 1338, 1362, 1374, 1398, 1434, 1446, 1506, 1542, 1578, 1614

Offset

1,1

Comments

On a suggestion of Manuel Valdivia.

Is 407715 the only odd term in this sequence?

407715 is the only odd term < 10^11. - Donovan Johnson, Apr 25 2012

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

d3[n_] := Total[Select[Most[Divisors[n]], # > n^(1/3) &]]; Select[Range[2, 2000], # == d3[#] &] (* T. D. Noe, Apr 24 2012 *)

Crossrefs

Cf. A182286.

Sequence in context: A338099 A125406 A318161 * A181711 A042940 A264356

Adjacent sequences: A182308 A182309 A182310 * A182312 A182313 A182314

Keyword

nonn

Author

Claudio Meller, Apr 24 2012

Status

approved