A340039 Numbers that are the sum of a cube s and a square t such that 0 < s <= t.

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

Links

Table of n, a(n) for n=1..60.

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

Cf. A010052, A010057.

Sequence in context: A030723 A077166 A230429 * A003192 A018682 A078393

Adjacent sequences: A340036 A340037 A340038 * A340040 A340041 A340042

Keyword

nonn

Author

Wesley Ivan Hurt, Dec 26 2020

Status

approved