OFFSET
1,1
MATHEMATICA
pr[{a_, b_, c_}]:=Module[{t=a+b+c}, Binomial[t, a]+Binomial[t, b]+ Binomial[ t, c]]; With[{nn=60}, Take[pr/@Tuples[Range[nn], 3]//Union, nn]] (* Harvey P. Dale, Oct 13 2016 *)
PROG
(PARI) tsum(a, b, c)=binomial(a+b+c, a)+binomial(a+b+c, b)+binomial(a+b+c, c)
isA034703(n) = {local(r, a, b, c); r=0; a=1; b=1; c=1; while(tsum(a, 1, 1)<=n, while(tsum(a, b, 1)<=n, while(tsum(a, b, c)<=n, if(tsum(a, b, c)==n, r=1); c=c+1); b=b+1; c=1); a=a+1; b=1; c=1); r} \\ Michael B. Porter, Mar 03 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition clarified by Michael B. Porter, Mar 03 2010
STATUS
approved