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,1

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

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

Crossrefs

Cf. A011541, A024974, A025400, A122723

Sequence in context: A126238 A176930 A308793 * A117359 A096210 A133584

Adjacent sequences: A180085 A180086 A180087 * A180089 A180090 A180091

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 09 2010

Status

approved