cp's OEIS Frontend

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

%I A115174 #19 Jul 24 2020 01:31:53
%S A115174 15,22,23,55,62,87,94,106,111,118,119,120,139,167,183,188,194,195,211,
%T A115174 215,223,244,246,251,263,274,275,279,286,303,304,307,309,311,314,330,
%U A115174 331,335,342,343,350,398,399,419,421,434,436,437,438,454,455,461,463
%N A115174 Numbers that are not the sum of a square, a nonnegative cube and a power of 2.
%C A115174 The square and the cube may be equal to 0, the powers of two starts at 2^0 = 1.
%C A115174 There are 531362099 such numbers up to 10^9, the last one in this range being 999999999.
%H A115174 Robert Israel, <a href="/A115174/b115174.txt">Table of n, a(n) for n = 1..10000</a>
%p A115174 N:= 1000: # for terms <= N
%p A115174 S1:= {seq(i^2,i=0..isqrt(N))}:
%p A115174 S2:= {seq(i^3,i=0..floor(N^(1/3)))}:
%p A115174 S3:= {seq(2^i,i=0..ilog2(N))}:
%p A115174 S:= select(`<=`,{seq(seq(seq(a+b+c,a=S1),b=S2),c=S3)},N):
%p A115174 sort(convert({$1..N} minus S,list)); # _Robert Israel_, Jul 23 2020
%t A115174 Complement[Range[1000], Plus @@@ Tuples[{Range[0, 34]^2, Range[0, 10]^3, 2^Range[0, 9]}]] (* _Giovanni Resta_, May 02 2016 *)
%Y A115174 Cf. A115171, A115172, A115173, A115175, A115176, A115177.
%K A115174 nonn
%O A115174 1,1
%A A115174 _Giovanni Resta_, Jan 15 2006
%E A115174 Name corrected by _Giovanni Resta_, May 02 2016