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.

A294073 Numbers that are the sum of 2 cubes > 1.

This page as a plain text file.
%I A294073 #12 Feb 09 2018 15:48:24
%S A294073 16,35,54,72,91,128,133,152,189,224,243,250,280,341,351,370,407,432,
%T A294073 468,520,539,559,576,637,686,728,737,756,793,854,855,945,1008,1024,
%U A294073 1027,1064,1072,1125,1216,1241,1339,1343,1358,1395,1456,1458,1512,1547,1674,1729,1736,1755,1792,1843,1853,1944,2000,2060
%N A294073 Numbers that are the sum of 2 cubes > 1.
%H A294073 Robert Israel, <a href="/A294073/b294073.txt">Table of n, a(n) for n = 1..10000</a>
%H A294073 <a href="/index/Su#ssq">Index entries for sequences related to sums of cubes</a>
%e A294073 133 is in the sequence because 133 = 2^3 + 5^3.
%p A294073 N:= 3000: # to get all terms <= N
%p A294073 M := floor(N^(1/3)):
%p A294073 sort(convert(select(`<=`, {seq(seq(i^3+j^3, j = 2 .. i), i = 2 .. M)}, N), list)) # _Robert Israel_, Feb 08 2018
%t A294073 nmax = 2060; f[x_] := Sum[x^k^3, {k, 2, 14}]^2; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, nmax}]]
%Y A294073 Cf. A000578, A003325, A004999, A024670, A085989, A086119.
%K A294073 nonn
%O A294073 1,1
%A A294073 _Ilya Gutkovskiy_, Feb 07 2018