[math-fun] In https://twitter.com/wolframtap/status/522518755168243712 , profligate pleonast

NeilB tweeted three superfluous characters: (*primes*)d[n_,t_,k_]:=If[k<1,Boole[n<1],If[t>n,0,d[n-t,0,k-1]+d[n,1/2+t+Sqrt[2t+1/4],k]]];2Select[Range[99],2#+2==d[#,0,4]&]+1 Can you find them? —rwg