|
%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
|
