|
%I
%S 1,1,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
%T 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
%U 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
%N a(n) = 1 if n of form m(m+1)(m+2)/6, otherwise 0.
%C a(A000292(n))=1; a(A145397(n))=0; a(n)=1-A014306(n). [From _Reinhard Zumkeller_, Oct 14 2008]
%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%t With[{ms=Table[m(m+1)(m+2)/6,{m,0,20}]},Table[If[MemberQ[ms,n],1,0], {n,0,100}]] (* From Harvey P. Dale, Jul 25 2011 *)
%K nonn
%O 0,1
%A _Clark Kimberling_
|
