OFFSET
1,1
MATHEMATICA
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 *)
PROG
(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]", ") ) }
CROSSREFS
KEYWORD
base,easy,nonn,word
AUTHOR
Cino Hilliard, May 31 2005
STATUS
approved