OFFSET
1,1
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..1600
EXAMPLE
72 is in the list since 72 = 2^3 + 4^3 and 2 and 4 are divisors of 72
MATHEMATICA
okQ[k_] := AnyTrue[Subsets[Select[Divisors[k]^3, # <= k&]], Total[#]==k&];
Reap[For[k = 1, k <= 100000, k++, If[!IntegerQ[k^(1/3)] && okQ[k], Print[k]; Sow[k]]]][[2, 1]] (* Jean-François Alcover, May 27 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Erich Friedman, Dec 17 2001
STATUS
approved