|
| |
|
|
A155468
|
|
Numbers that are distinct sums of 8-th powers of 2 distinct positive integers.
|
|
4
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 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: A173892 A031604 A125648 * A034682 A017679 A013956
Adjacent sequences: A155465 A155466 A155467 * A155469 A155470 A155471
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 23 2009
|
| |
|
|
