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

18, 1338, 1362, 1374, 1398, 1434, 1446, 1506, 1542, 1578, 1614, 1626, 1662, 1686, 1698, 1758, 1842, 1866, 1878, 1902, 1986, 2022, 2082, 2094, 2118, 2154, 2202, 2238, 2274, 2298, 2334, 2382, 2406, 2454, 2514, 2526, 2586, 2598, 2634, 2658, 2694, 2742, 2766, 2778

Offset: 1

Author

Claudio Meller, Apr 23 2012

Keywords

• nonn

Comments

On a suggestion of Manuel Valdivia.

Is 8415 the only odd term in this sequence?

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

Links

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

Crossrefs

Cf. A182311.

Programs

Mathematica

spdQ[n_]:=Total[Select[Most[Divisors[n]],#>Sqrt[Sqrt[n]]&]]==n; Select[Range[3000],spdQ] (* Harvey P. Dale, Aug 17 2012 *)