A340044 Numbers that are the sum of a square s and a fourth power t such that 0 < s <= t.

2, 17, 20, 25, 32, 82, 85, 90, 97, 106, 117, 130, 145, 162, 257, 260, 265, 272, 281, 292, 305, 320, 337, 356, 377, 400, 425, 452, 481, 512, 626, 629, 634, 641, 650, 661, 674, 689, 706, 725, 746, 769, 794, 821, 850, 881, 914, 949, 986, 1025, 1066, 1109, 1154, 1201, 1250

Offset

1,1

Links

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

Example

17 is in the sequence since 1^2 + 2^4 = 1 + 16 = 17, where 0 < 1 <= 16.

Mathematica

Table[If[Sum[(Floor[i^(1/2)] - Floor[(i - 1)^(1/2)]) (Floor[(n - i)^(1/4)] - Floor[(n - i - 1)^(1/4)]), {i, Floor[n/2]}] > 0, n, {}], {n, 1200}] // Flatten

Crossrefs

Cf. A010052.

Sequence in context: A107139 A042055 A075683 * A309055 A157191 A371478

Adjacent sequences: A340041 A340042 A340043 * A340045 A340046 A340047

Keyword

nonn

Author

Wesley Ivan Hurt, Dec 26 2020

Status

approved