login
A340039
Numbers that are the sum of a cube s and a square t such that 0 < s <= t.
0
2, 5, 10, 17, 24, 26, 33, 37, 44, 50, 57, 63, 65, 72, 76, 82, 89, 91, 101, 108, 122, 127, 128, 129, 145, 148, 152, 164, 170, 171, 177, 185, 196, 197, 204, 208, 223, 226, 233, 252, 257, 260, 264, 269, 283, 289, 290, 294, 297, 316, 320, 321, 325, 332, 350, 351, 353, 362, 369, 381
OFFSET
1,1
EXAMPLE
24 is in the sequence since 2^3 + 4^2 = 8 + 16 = 24, where 0 < 8 <= 16.
MATHEMATICA
Table[If[Sum[(Floor[i^(1/3)] - Floor[(i - 1)^(1/3)]) (Floor[(n - i)^(1/2)] - Floor[(n - i - 1)^(1/2)]), {i, Floor[n/2]}] > 0, n, {}], {n, 500}] // Flatten
CROSSREFS
Sequence in context: A030723 A077166 A230429 * A003192 A018682 A375703
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 26 2020
STATUS
approved