|
%I #5 Feb 11 2016 22:57:21
%S 1009,4229,4447,4733,6301,7561,10657,12377,12979,13103,13859,14561,
%T 15569,15667,17207,20663,20747,20899,21673,22511,24137,24499,25999,
%U 27793,27917,28001,28493,28729,29917,31123,32579,32833,32957,33119
%N Primes which are the sum of three distinct positive cubes in two or more distinct ways.
%C 1^3+2^3+10^3=1009=4^3+6^3+9^3
%H Chai Wah Wu, <a href="/A180088/b180088.txt">Table of n, a(n) for n = 1..10000</a>
%t lst1=Sort@Select[Flatten[Table[a^3+b^3+c^3,{a,1,66},{b,a-1,1,-1},{c,b-1,1,-1}]],PrimeQ[ # ]&]; lst={};Do[If[lst1[[n]]==lst1[[n+1]],AppendTo[lst,lst1[[n]]]],{n,Length[lst1]-1}];lst
%Y Cf. A011541, A024974, A025400, A122723
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 09 2010
|
