|
%I #7 Feb 20 2024 01:04:43
%S 3,4,3,4,3,3,5,4,3,3,5,5,5,4,4,4,4,4,5,5,4,3,3,5,5,5,3,4,3,4,4,3,4,5,
%T 4,5,5,4,3,4,3,5,3,5,5,4,5,5,3,4,4,5,4,5,5,3,5,3,3,5,4,5,5,5,4,4,4,5,
%U 5,3,4,5,5,4,3,3,3,4,5,4,5,5,5,4,4,5,5,5,4,5,4,5,3,5,3,4,3,4
%N Number of letters in the words formed by the digital recitation of sqrt(2) in the English language.
%t RealDigits[Sqrt[2], 10, 98][[1]] /. {0->4, 1->3, 2->3, 3->5, 5->4, 6->3, 7->5, 8->5, 9->4} (* _James C. McMahon_, Feb 19 2024 *)
%o (PARI) readsqr2(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(sqrt(2))); print1(3","); for(x=3,n-1, y=floor(eval(a[x])); print1(d[y+1]",") ) }
%Y Cf. A107488, A107489.
%K base,easy,nonn,word
%O 1,1
%A _Cino Hilliard_, May 31 2005
|
