OFFSET
1,2
EXAMPLE
0; 3,0; 6,3,0; 7,6,3,0; 8,7,6,3,0;... (reverse order of 0; 0.3; 0.36; 0.367; 0.3678;...)
PROG
(PARI) a(n)=if(n<1, 0, default(realprecision, n+2); floor(exp(-1)*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