login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A180099 Primes which are the sum of three distinct positive cubes of prime numbers in two or more distinct ways. 2
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 17 22:15 EDT 2021. Contains 343992 sequences. (Running on oeis4.)