%I #24 Dec 21 2021 23:53:26
%S 5,6,7,12,13,14,15,19,20,21,22,23,26,31,33,34,38,39,40,41,42,45,46,47,
%T 48,49,50,52,53,57,58,59,60,61,68,69,71,75,76,77,78,79,83,84,85,86,87,
%U 90,94,95,96,97,98,101,102,103,104,105,106,109,110,111,112,113,114,115
%N Numbers that are not the sum of 4 nonnegative cubes.
%C From _Felix Fröhlich_, Jun 01 2019: (Start)
%C Numbers n such that A025448(n) = 0.
%C Conjecture: The sequence is finite, with 113936676 terms, the largest being 7373170279850 (cf. Deshouillers et al, 2000, Conj. 1 and 2). (End)
%H T. D. Noe, <a href="/A022566/b022566.txt">Table of n, a(n) for n = 1..10000</a>
%H Jean-Marc Deshouillers, Francois Hennecart and Bernard Landreau; appendix by I. Gusti Putu Purnaba, <a href="https://doi.org/10.1090/S0025-5718-99-01116-3">7373170279850</a>, Math. Comp., Vol. 69, No. 229 (2000), 421-439.
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of cubes</a>
%t Complement[Range[134],Take[Union[Total[#^3]&/@Tuples[Range[0,20],{4}]],60]] (* _Harvey P. Dale_, Nov 22 2010 *)
%o (PARI) cubes(bound) = my(v=[], x=0); while(1, v=concat(v, [x^3]); x++; if(x^3 > bound, return(v)))
%o a025448(n) = my(i=0, c=cubes(n)); for(s=1, #c, for(t=s, #c, for(u=t, #c, for(v=u, #c, if(n==c[s]+c[t]+c[u]+c[v], i++))))); i
%o is(n) = a025448(n)==0 \\ _Felix Fröhlich_, Jun 01 2019
%Y Cf. A025448.
%K nonn,easy,fini,nice
%O 1,1
%A _N. J. A. Sloane_
%E More terms from Larry Reeves (larryr(AT)acm.org), May 16 2001