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.

A025395 Numbers that are the sum of 3 positive cubes in exactly 1 way.

This page as a plain text file.
%I A025395 #24 Feb 16 2025 08:32:35
%S A025395 3,10,17,24,29,36,43,55,62,66,73,80,81,92,99,118,127,129,134,136,141,
%T A025395 153,155,160,179,190,192,197,216,218,225,232,244,253,258,270,277,281,
%U A025395 288,307,314,342,344,345,349,352,359,368,371,375,378,397,405,408,415,433,434,440
%N A025395 Numbers that are the sum of 3 positive cubes in exactly 1 way.
%C A025395 A025456(a(n)) = 1. - _Reinhard Zumkeller_, Apr 23 2009
%H A025395 T. D. Noe, <a href="/A025395/b025395.txt">Table of n, a(n) for n = 1..1000</a>
%H A025395 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CubicNumber.html">Cubic Number</a>.
%H A025395 <a href="/index/Su#ssq">Index entries for sequences related to sums of cubes</a>
%t A025395 Reap[For[n = 1, n <= 500, n++, pr = Select[ PowersRepresentations[n, 3, 3], Times @@ # != 0 &]; If[pr != {} && Length[pr] == 1, Print[n, pr]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Jul 31 2013 *)
%Y A025395 Cf. A003072, A024981, A025321, A025396, A025403, A338667, A344188.
%K A025395 nonn,easy,nice
%O A025395 1,1
%A A025395 _David W. Wilson_