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.

A180089 Semiprimes which are the sum of three distinct positive cubes in two or more distinct ways.

This page as a plain text file.
%I A180089 #5 Feb 11 2016 22:57:28
%S A180089 1366,1457,1793,1945,3599,4105,5435,7379,8315,9017,10261,10963,11773,
%T A180089 12706,13957,15163,15371,15553,15751,15758,16271,17263,17354,17947,
%U A180089 18649,19027,19369,19657,19729,19774,19781,19907,21026,21167,22411
%N A180089 Semiprimes which are the sum of three distinct positive cubes in two or more distinct ways.
%C A180089 2^3+3^3+11^3=5^3+8^3+9^3=1366=2*683, 1^3+5^3+11^3=6^3+8^3+9^3=1457=31*47,..
%H A180089 Chai Wah Wu, <a href="/A180089/b180089.txt">Table of n, a(n) for n = 1..10000</a>
%t A180089 f[n_]:=Last/@FactorInteger[n]=={1,1}; lst={};Do[Do[Do[If[f[p=a^3+b^3+c^3],AppendTo[lst,p]],{c,b-1,1,-1}],{b,a-1,1,-1}],{a,55}];lst1=Sort@lst; lst={};Do[If[lst1[[n]]==lst1[[n+1]],AppendTo[lst,lst1[[n]]]],{n,Length[lst1]-1}];lst
%Y A180089 Cf. A011541, A024974, A025400, A122723, A180088
%K A180089 nonn
%O A180089 1,1
%A A180089 _Vladimir Joseph Stephan Orlovsky_, Aug 09 2010