login
A180088
Primes which are the sum of three distinct positive cubes in two or more distinct ways.
4
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
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
KEYWORD
nonn
AUTHOR
STATUS
approved