OFFSET
0,1
MATHEMATICA
nn=50; Numerator[With[{pidgs=N[Pi, nn]}, Table[IntegerPart[pidgs 10^(n-1)]/10^n, {n, nn}]]] (* Harvey P. Dale, Sep 21 2011 *)
PROG
(PARI) a(n, c=Pi)=numerator(c*10^n\1/10^n) \\ M. F. Hasler, Sep 21 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, following a suggestion by Eric Angelini, Sep 21 2011
STATUS
approved