|
Search: id:A086121
|
|
|
| A086121 |
|
Positive sums or differences of two cubes of primes. |
|
+0
3
|
|
| 16, 19, 35, 54, 98, 117, 133, 152, 218, 250, 316, 335, 351, 370, 468, 686, 866, 988, 1206, 1304, 1323, 1339, 1358, 1456, 1674, 1854, 1946, 2072, 2170, 2189, 2205, 2224, 2322, 2540, 2662, 2716, 3528, 3582, 4394, 4570, 4662, 4788, 4886, 4905, 4921, 4940
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
EXAMPLE
|
117 and 133 each belong to the (set) sequence because can be written as 117 = 5^3 - 2^3 and 133 = 5^3 + 2^3.
|
|
MAPLE
|
sumList[x_List, y_List] := (punchline = {}; Do[punchline = Union[punchline, x[[i]] + y], {i, Length[x]}]; punchline) posPart[x_List] := (punchline = {}; Do[If[x[[i]] > 0, punchline = Union[punchline, {x[[i]]}]], {i, Length[x]}]; punchline) pr[n_] := Prime[Range[n]] Union[sumList[pr[10]^3, pr[10]^3], posPart[sumList[pr[10]^3, - pr[10]^3]]]
|
|
CROSSREFS
|
Cf. A086119, A086120. Also see A045636, A045699.
Sequence in context: A032401 A070574 A034012 this_sequence A030402 A061934 A140212
Adjacent sequences: A086118 A086119 A086120 this_sequence A086122 A086123 A086124
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Hollie L. Buchanan II (hb2math(AT)hotmail.com), Jul 11 2003
|
|
|
Search completed in 0.002 seconds
|
