|
%I #7 Nov 04 2021 19:21:13
%S 5,3,4,3,4,4,3,3,4,5,4,5,4,5,4,5,3,5,5,4,3,3,3,4,5,5,5,5,3,5,4,4,4,3,
%T 5,5,4,3,4,5,3,3,4,5,4,4,5,5,4,3,4,4,5,3,4,4,5,4,4,4,4,4,4,3,5,4,5,5,
%U 3,3,4,4,3,3,5,3,3,4,5,4,4,5,3,3,5,4,5,4,5,3,4,5,4,3,3,3,5,4,3,5,4,5,3,3,4
%N Number of letters in the words formed by the digital recitation of Pi in the English language.
%C Essentially the same as A052384. [From _R. J. Mathar_, Aug 24 2008]
%e Three, one, four, one, five, nine has digit count 5, 3, 4, 3, 4, 4 the first 6 entries in the sequence.
%t RealDigits[Pi,10,120][[1]]/.{0->4,1->3,2->3,3->5,5->4,6->3,7->5,8->5,9->4} (* _Harvey P. Dale_, Nov 04 2021 *)
%o (PARI) readpi(n) = { local(x,a,d); default(realprecision,200); d=vector(10); a=vector(n); d[1]=4;d[2]=3;d[3]=3;d[4]=5;d[5]=4;d[6]=4;d[7]=3;d[8]=5;d[9]=5;d[10]=4; a=Vec(Str(Pi)); print1(5","); for(x=3,n-1, y=floor(eval(a[x])); print1(d[y+1]",") ) }
%K base,easy,nonn,word
%O 1,1
%A _Cino Hilliard_, May 28 2005
|
