OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
FORMULA
{n: A025469(n) = 2}. - R. J. Mathar, Jun 15 2018
MATHEMATICA
Reap[ For[n = 1, n <= 7000, n++, pr = Select[ PowersRepresentations[n, 3, 3], Times @@ # != 0 && Length[#] == Length[Union[#]] &] ; If[pr != {} && Length[pr] == 2, Print[n, pr]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 31 2013 *)
Module[{nn=20}, Select[Tally[Total/@Subsets[Range[nn]^3, {3}]], #[[2]]==2 && #[[1]]<= nn^3-9&][[All, 1]]]//Union (* Harvey P. Dale, Apr 26 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved