Search: id:A001476
Results 1-1 of 1 results found.

%I A001476
%S A001476 2,3,4,5,6,7,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,
%T A001476 29,30,31,32,33,34,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,
%U A001476 52,53,54,55,56,57,58,59,60,61,62,63,66,67,68,69,70,71,74,75,76
%N A001476 Numbers that are not the sum of distinct cubes.
%D A001476 R. Sprague, Ueber Zerlegungen in n-te Potenzen mit lauter verschiedenen 
               Grundzahlen, Math. Z. 51, (1948). 466-468.
%H A001476 T. D. Noe, <a href="b001476.txt">Table of n, a(n) for n = 1..2788</a>
%H A001476 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               CubicNumber.html">Link to a section of The World of Mathematics.</
               a>
%t A001476 Cubes[ n_ ] := Block[ {A, i}, A = {0}; if[ n>0, Do[ A = Union[ A, A + 
               i*i*i ], {i, n} ]; ]; Return[ A ]; ]; Q = Complement[ Table[ i, {i, 
               1, 12760} ], Cubes[ 23 ] ]
%Y A001476 Complement of A003997. Cf. A001422.
%Y A001476 Sequence in context: A102455 A073678 A031981 this_sequence A039269 A039207 
               A039155
%Y A001476 Adjacent sequences: A001473 A001474 A001475 this_sequence A001477 A001478 
               A001479
%K A001476 nonn,fini
%O A001476 1,1
%A A001476 Jeff Adams (jeff.adams(AT)byu.net)

Search completed in 0.001 seconds