|
Search: id:A155468
|
|
|
| A155468 |
|
Numbers that are distinct sums of 8-th powers of 2 distinct positive integers. |
|
+0
5
|
| |
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
1^8+2^8=257, 1^8+3^8=6562, 2^8+3^8=6817,...
|
|
MATHEMATICA
|
lst={}; e=8; Do[Do[x=a^e; Do[y=b^e; If[x+y==n, Print[n, ", ", Date[]]; AppendTo[lst, n]], {b, Floor[(n-x)^(1/e)], a+1, -1}], {a, Floor[n^(1/e)], 1, -1}], {n, 4*8!}]; lst
|
|
CROSSREFS
|
Cf. A088719, A088677, A088703, A088687, A001235, A024670, A025320, A025319, A025318, A025317, A025316, A025315, A025314, A025313, A024508, A004431, A134961, A024507
Sequence in context: A054801 A031604 A125648 this_sequence A034682 A017679 A013956
Adjacent sequences: A155465 A155466 A155467 this_sequence A155469 A155470 A155471
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 23 2009
|
|
|
Search completed in 0.002 seconds
|
