|
%I #17 Oct 30 2017 11:23:56
%S 0,1,2,3,4,5,64,65,66,67,68,128,129,130,131,192,193,194,256,257,320,
%T 729,730,731,732,733,793,794,795,796,857,858,859,921,922,985,1458,
%U 1459,1460,1461,1522,1523,1524,1586,1587,1650,2187,2188,2189,2251,2252,2315
%N Numbers that are the sum of at most 5 nonzero 6th powers.
%H Alois P. Heinz, <a href="/A004856/b004856.txt">Table of n, a(n) for n = 1..10000</a>
%t Reap[For[n = 0, n < 3000, n++, If[MatchQ[PowersRepresentations[n, 5, 6], {Table[_, 5], ___}], Print[n]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Oct 30 2017 *)
%K nonn
%O 1,3
%A _N. J. A. Sloane_
%E More terms from _Alois P. Heinz_, Sep 16 2016
|
