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
KEYWORD
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Jul 07 2004
STATUS
approved