%I #24 Mar 21 2020 18:54:28
%S 18,196,222,246,258,282,318,354,366,402,426,438,474,498,534,582,606,
%T 618,642,654,678,762,786,822,834,894,906,942,978,1002,1038,1074,1086,
%U 1146,1158,1182,1194,1266,1338,1362,1374,1398,1434,1446,1506,1542,1578,1614
%N Numbers k such that k is equal to the sum of the proper divisors of k that are greater than k^(1/3).
%C On a suggestion of _Manuel Valdivia_.
%C Is 407715 the only odd term in this sequence?
%C 407715 is the only odd term < 10^11. - _Donovan Johnson_, Apr 25 2012
%H Amiram Eldar, <a href="/A182311/b182311.txt">Table of n, a(n) for n = 1..10000</a>
%t d3[n_] := Total[Select[Most[Divisors[n]], # > n^(1/3) &]]; Select[Range[2, 2000], # == d3[#] &] (* _T. D. Noe_, Apr 24 2012 *)
%Y Cf. A182286.
%K nonn
%O 1,1
%A _Claudio Meller_, Apr 24 2012