OFFSET
1,2
EXAMPLE
0; 3,0; 1,3,0; 8,1,3,0; 3,8,1,3,0;... (reverse order of 0; 0.3; 0.31; 0.318; 0.3183;...)
MATHEMATICA
With[{d=Join[{0}, RealDigits[1/Pi, 10, 30][[1]]]}, Flatten[Table[Reverse[ Take[d, n]], {n, 20}]]] (* Harvey P. Dale, Jun 28 2012 *)
PROG
(PARI) a(n)=if(n<1, 0, default(realprecision, n+2); floor(1/Pi*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