OFFSET
1,1
EXAMPLE
3; 1,3; 4,1,3; 1,4,1,3; 5,1,4,1,3;... (reverse order of 3; 3.1; 3.14; 3.141; 3.1415; ...)
MATHEMATICA
Module[{nn=20, pid}, pid=RealDigits[Pi, 10, (nn(nn+1))/2][[1]]; Table[ Reverse[ Take[ pid, n]], {n, nn}]]//Flatten (* Harvey P. Dale, Aug 13 2019 *)
PROG
(PARI) a(n)=if(n<1, 0, default(realprecision, n+2); floor(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