login
A095713
Triangle of numbers obtained by reversing the first n digits of golden ratio phi and juxtaposing.
1
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
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
KEYWORD
base,easy,nonn,tabl
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Jul 07 2004
STATUS
approved