# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a340042
Showing 1-1 of 1

%I A340042 #6 Feb 01 2021 12:39:00
%S A340042 5,10,17,24,26,33,37,44,50,57,63,65,72,76,82,89,91,101,108,122,127,
%T A340042 129,145,148,152,164,170,171,177,185,196,197,204,208,223,226,233,252,
%U A340042 257,260,264,269,283,289,290,294,297,316,320,321,325,332,350,351,353,362,369,381
%N A340042 Numbers that are the sum of a cube s and a square t such that 0 < s < t.
%e A340042 17 is in the sequence since 1^3 + 4^2 = 1 + 16 = 17, where 0 < 1 < 16.
%t A340042 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 - 1)/2]}] > 0, n, {}], {n, 500}] // Flatten
%Y A340042 Cf. A010052, A010057.
%K A340042 nonn
%O A340042 1,1
%A A340042 _Wesley Ivan Hurt_, Dec 26 2020

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE