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

185527, 451837, 591751, 1265471, 1266929, 1618973, 1626227, 1664713, 2586277, 2754683, 2765519, 2805193, 3422303, 3740309, 3748499, 4154779, 5336479, 5483953, 5557987, 6130151, 6586091, 7231013, 7361801, 7726571, 8205553

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Aug 09 2010

Keywords

• nonn

Examples

			185527 = 47^3+43^3+13^3=53^3+31^3+19^3.
		

Links

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

Crossrefs

Cf. A011541, A024974, A025400, A122723, A180088, A180089.

Programs

Mathematica

lst={};Do[Do[Do[If[PrimeQ[p=Prime[a]^3+Prime[b]^3+Prime[c]^3],AppendTo[lst,p]],{c,b-1,1,-1}],{b,a-1,1,-1}],{a,88}];lst1=Sort@lst; lst={};Do[If[lst1[[n]]==lst1[[n+1]],AppendTo[lst,lst1[[n]]]],{n,Length[lst1]-1}];lst
Select[Tally[Select[Total/@Subsets[Prime[Range[50]]^3,{3}],PrimeQ]],#[[2]]> 1&] [[All,1]]//Sort (* Harvey P. Dale, Sep 26 2020 *)