A108025 Number of letters in the words formed by the digital recitation of phi in the English language.

3, 3, 3, 5, 4, 5, 5, 4, 5, 5, 5, 4, 4, 5, 4, 4, 5, 4, 5, 3, 4, 4, 4, 5, 3, 5, 5, 4, 5, 3, 4, 3, 5, 5, 3, 3, 5, 5, 3, 4, 5, 4, 4, 3, 5, 4, 5, 4, 4, 5, 3, 3, 5, 3, 3, 3, 5, 4, 4, 4, 5, 3, 3, 3, 5, 4, 4, 3, 3, 4, 4, 3, 3, 5, 3, 5, 4, 4, 3, 4, 4, 4, 5, 4, 5, 3, 4, 5, 3, 4, 4, 3, 5, 4, 5, 4, 3, 3, 5, 5, 4, 5, 4, 5, 4

Offset: 1

Author

Cino Hilliard, May 31 2005

Keywords

• base
• easy
• nonn
• word

Crossrefs

Cf. A107488, A107489.

Programs

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 *)

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]",") ) }