Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #9 Feb 02 2017 18:41:40
%S 0,1,3,7,19,39,74,134,227,365,568,854,1247,1777,2479,3392,4562,6043,
%T 7898,10194,13010,16428,20547,25474,31330,38248,46370,55846,66843,
%U 79544,94161,110917,130044,151782,176391,204159,235410,270487,309744,353539,402255
%N Number of sets of exactly six positive integers <= n having a square element sum.
%H Alois P. Heinz, <a href="/A281866/b281866.txt">Table of n, a(n) for n = 6..1000</a>
%e a(7) = 1: {1,2,4,5,6,7}.
%e a(8) = 3: {1,2,3,4,7,8}, {1,2,3,5,6,8}, {1,2,4,5,6,7}.
%p b:= proc(n, i, t) option remember;
%p `if`(i<t, 0, `if`(n=0, `if`(t=0, 1, 0),
%p `if`(t<1 or n<t*(t+1)/2 or n>(t+1)*(2*i-t)/2, 0,
%p `if`(i>n, 0, b(n-i, i-1, t-1))+b(n, i-1, t))))
%p end:
%p a:= proc(n) option remember; `if`(n<0, 0, a(n-1)+add(
%p b(j^2-n, n-1, 5), j=isqrt(n-15)..isqrt(6*n-15)))
%p end:
%p seq(a(n), n=6..60);
%Y Column k=6 of A281871.
%K nonn
%O 6,3
%A _Alois P. Heinz_, Feb 01 2017