|
Search: id:A157026
|
|
|
| A157026 |
|
Primes p with the property that p^3=n^3+m^3+k^3. |
|
+0
1
|
|
| 19, 29, 41, 53, 67, 71, 89, 97, 103, 113, 127, 137, 139, 151, 167, 179, 181, 191, 193, 197
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
19^3=18^3+10^3+3^3, 29^3=27^3+15^3+11^3, 41^3=33^3+32^3+6^3, ... Prime number power 3 = sum of 3 cubes.
|
|
MATHEMATICA
|
q=3; lst={}; Do[Do[Do[p=n^q+m^q+k^q; p=p^(1/q); If[PrimeQ[p], AppendTo[lst, p]], {n, m+1, 6!}], {m, k+1, 3*5!}], {k, 5!}]; Length[lst]; Length[Union[lst]]; Take[Union[lst], 20]
|
|
CROSSREFS
|
Sequence in context: A109276 A133765 A158846 this_sequence A108183 A157483 A096218
Adjacent sequences: A157023 A157024 A157025 this_sequence A157027 A157028 A157029
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 21 2009
|
|
|
Search completed in 0.002 seconds
|
