OFFSET
1,1
MATHEMATICA
RealDigits[ GoldenRatio, 10, 111][[1]] /. {0->4, 1->3, 2->3, 3->5, 5->4, 6->3, 7->5, 8->5, 9->4} (* Robert G. Wilson v, Jun 03 2005 *)
PROG
(PARI) readphi(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(5)+1)/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