cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A025401 Numbers that are the sum of 3 distinct positive cubes in exactly 3 ways.

This page as a plain text file.
%I A025401 #14 Jun 15 2018 06:04:57
%S A025401 5104,9729,12104,12384,14175,17604,17928,20691,21412,21888,24480,
%T A025401 28792,29457,30528,31221,32850,34497,36288,38259,39339,39376,40060,
%U A025401 40097,40832,40851,41033,41040,41364,42056,43408,45144,46593,46684,46747,46808,47683
%N A025401 Numbers that are the sum of 3 distinct positive cubes in exactly 3 ways.
%H A025401 Chai Wah Wu, <a href="/A025401/b025401.txt">Table of n, a(n) for n = 1..11181</a>
%F A025401 {n: A025469(n) = 3}. - _R. J. Mathar_, Jun 15 2018
%t A025401 Reap[For[n = 1, n <= 50000, n++, pr = Select[ PowersRepresentations[n, 3, 3], Times @@ # != 0 && Length[#] == Length[Union[#]] &]; If[pr != {} && Length[pr] == 3, Print[n, pr]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Jul 31 2013 *)
%Y A025401 Cf. A025397 (not necessarily distinct)
%K A025401 nonn
%O A025401 1,1
%A A025401 _David W. Wilson_