A115174 - OEIS

%I #19 Jul 24 2020 01:31:53

%S 15,22,23,55,62,87,94,106,111,118,119,120,139,167,183,188,194,195,211,

%T 215,223,244,246,251,263,274,275,279,286,303,304,307,309,311,314,330,

%U 331,335,342,343,350,398,399,419,421,434,436,437,438,454,455,461,463

%N Numbers that are not the sum of a square, a nonnegative cube and a power of 2.

%C The square and the cube may be equal to 0, the powers of two starts at 2^0 = 1.

%C There are 531362099 such numbers up to 10^9, the last one in this range being 999999999.

%H Robert Israel, <a href="/A115174/b115174.txt">Table of n, a(n) for n = 1..10000</a>

%p N:= 1000: # for terms <= N

%p S1:= {seq(i^2,i=0..isqrt(N))}:

%p S2:= {seq(i^3,i=0..floor(N^(1/3)))}:

%p S3:= {seq(2^i,i=0..ilog2(N))}:

%p S:= select(`<=`,{seq(seq(seq(a+b+c,a=S1),b=S2),c=S3)},N):

%p sort(convert({$1..N} minus S,list)); # _Robert Israel_, Jul 23 2020

%t Complement[Range[1000], Plus @@@ Tuples[{Range[0, 34]^2, Range[0, 10]^3, 2^Range[0, 9]}]] (* _Giovanni Resta_, May 02 2016 *)

%Y Cf. A115171, A115172, A115173, A115175, A115176, A115177.

%K nonn

%O 1,1

%A _Giovanni Resta_, Jan 15 2006

%E Name corrected by _Giovanni Resta_, May 02 2016