17 Oct
2014
17 Oct
'14
3:22 p.m.
Eavesdropper Zack found a fourth! —rwg On Fri, Oct 17, 2014 at 11:07 AM, Bill Gosper <billgosper@gmail.com> wrote:
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