|
| |
|
|
A157026
|
|
Primes p with the property that p^3=n^3+m^3+k^3.
|
|
0
| |
|
|
19, 29, 41, 53, 67, 71, 89, 97, 103, 113, 127, 137, 139, 151, 167, 179, 181, 191, 193, 197
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 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 * A108183 A157483 A173966
Adjacent sequences: A157023 A157024 A157025 * A157027 A157028 A157029
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 21 2009
|
| |
|
|
