A180088 Primes which are the sum of three distinct positive cubes in two or more distinct ways.

1009, 4229, 4447, 4733, 6301, 7561, 10657, 12377, 12979, 13103, 13859, 14561, 15569, 15667, 17207, 20663, 20747, 20899, 21673, 22511, 24137, 24499, 25999, 27793, 27917, 28001, 28493, 28729, 29917, 31123, 32579, 32833, 32957, 33119

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Aug 09 2010

Keywords

• nonn

Comments

1^3+2^3+10^3=1009=4^3+6^3+9^3

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A011541, A024974, A025400, A122723

Programs

Mathematica

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