|
| |
|
|
A340047
|
|
Numbers that are the sum of a fourth power s and a square t such that 0 < s < t.
|
|
0
|
|
|
|
5, 10, 17, 26, 37, 41, 50, 52, 65, 80, 82, 97, 101, 116, 122, 137, 145, 160, 170, 181, 185, 197, 202, 212, 225, 226, 241, 250, 257, 272, 277, 290, 305, 306, 325, 337, 340, 362, 370, 377, 401, 405, 416, 442, 457, 481, 485, 500, 522, 530, 545, 565, 577, 580, 592, 610, 617
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
|
|
|
EXAMPLE
|
26 is in the sequence since 1^4 + 5^2 = 1 + 25 = 26, where 0 < 1 < 25.
|
|
|
MATHEMATICA
|
Table[If[Sum[(Floor[i^(1/4)] - Floor[(i - 1)^(1/4)]) (Floor[(n - i)^(1/2)] - Floor[(n - i - 1)^(1/2)]), {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 800}] // Flatten
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
