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

Links

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

Example

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

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 *)

Crossrefs

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

Sequence in context: A254725 A117225 A032748 * A092013 A186878 A192103

Adjacent sequences: A180096 A180097 A180098 * A180100 A180101 A180102

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 09 2010

Status

approved