%I #6 Feb 01 2021 12:39:28
%S 2,17,20,25,32,82,85,90,97,106,117,130,145,162,257,260,265,272,281,
%T 292,305,320,337,356,377,400,425,452,481,512,626,629,634,641,650,661,
%U 674,689,706,725,746,769,794,821,850,881,914,949,986,1025,1066,1109,1154,1201,1250
%N Numbers that are the sum of a square s and a fourth power t such that 0 < s <= t.
%e 17 is in the sequence since 1^2 + 2^4 = 1 + 16 = 17, where 0 < 1 <= 16.
%t 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
%Y Cf. A010052.
%K nonn
%O 1,1
%A _Wesley Ivan Hurt_, Dec 26 2020
|