login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #6 Feb 01 2021 12:40:36

%S 2,5,10,17,26,32,37,41,50,52,65,80,82,97,101,116,122,137,145,160,162,

%T 170,181,185,197,202,212,225,226,241,250,257,272,277,290,305,306,325,

%U 337,340,362,370,377,401,405,416,442,457,481,485,500,512,522,530,545,565,577,580

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

%e 10 is in the sequence since 1^4 + 3^2 = 1 + 9 = 10, where 0 < 1 <= 9.

%t 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/2]}] > 0, n, {}], {n, 1000}] // Flatten

%Y Cf. A010052.

%K nonn

%O 1,1

%A _Wesley Ivan Hurt_, Dec 26 2020