|
%I #15 Apr 09 2017 22:29:17
%S 17,18,26,34,45,50,53,61,65,68,72,73,74,82,89,90,97,98,101,104,106,
%T 109,113,116,117,122,125,136,137,145,146,149,153,157,162,164,169,170,
%U 173,178,180,181,185,193,194,197,200,202,205,212,218,221,225,226,229,233,234,241
%N n is the sum of k nonzero squares for all 2 <= k <= n-14.
%C Every n > 19 is the sum of k nonzero squares for all 6 <= k <= n-14. - _Robert Israel_, Apr 09 2017
%H Robert Israel, <a href="/A018821/b018821.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%p N:= 1000: # to get all terms <= N
%p A:= {$16..N}:
%p S:= {seq(i^2, i=1..floor(sqrt(N)))}:
%p SS:= S:
%p for k from 2 to 6 do
%p SS:= select(`<=`,{seq(seq(s+t,s=S),t=SS)},N):
%p A := select(`<`, A, k+14) union (A intersect SS);
%p od:
%p sort(convert(A,list)); # _Robert Israel_, Apr 09 2017
%K nonn
%O 1,1
%A _David W. Wilson_
|
