A095713 Triangle of numbers obtained by reversing the first n digits of golden ratio phi and juxtaposing.

1, 6, 1, 1, 6, 1, 8, 1, 6, 1, 0, 8, 1, 6, 1, 3, 0, 8, 1, 6, 1, 3, 3, 0, 8, 1, 6, 1, 9, 3, 3, 0, 8, 1, 6, 1, 8, 9, 3, 3, 0, 8, 1, 6, 1, 8, 8, 9, 3, 3, 0, 8, 1, 6, 1, 7, 8, 8, 9, 3, 3, 0, 8, 1, 6, 1, 4, 7, 8, 8, 9, 3, 3, 0, 8, 1, 6, 1, 9, 4, 7, 8, 8, 9, 3, 3, 0, 8, 1, 6, 1, 8, 9, 4, 7, 8, 8, 9, 3, 3, 0, 8, 1, 6, 1

Offset

1,2

Links

Table of n, a(n) for n=1..105.

Example

1; 6,1; 1,6,1; 8,1,6,1; 0,8,1,6,1;... (reverse order of 1; 1.6; 1.61; 1.618; 1.6180;...)

Mathematica

nn=20; With[{gr=RealDigits[GoldenRatio, 10, nn][[1]]}, Flatten[Table[ Reverse[ Take[gr, n]], {n, nn}]]] (* Harvey P. Dale, Jul 16 2012 *)

Prog

(PARI) a(n)=if(n<1, 0, default(realprecision, n+2); floor((1/2+sqrt(5)/2)*10^(n-1))%10); b(n)=1+binomial(1+floor(1/2+sqrt(2*n)), 2)-n; for(n=1, 120, print1(a(b(n)), ", ")

Crossrefs

Cf. A001622.

Sequence in context: A319990 A138073 A131778 * A138072 A176348 A176264

Adjacent sequences: A095710 A095711 A095712 * A095714 A095715 A095716

Keyword

base,easy,nonn,tabl

Author

Herman Jamke (hermanjamke(AT)fastmail.fm), Jul 07 2004

Status

approved