|
|
A195603
|
|
Numerator of floor(Pi*10^n)/10^n.
|
|
1
|
|
|
3, 31, 157, 3141, 6283, 314159, 392699, 15707963, 62831853, 3141592653, 6283185307, 157079632679, 3141592653589, 31415926535897, 314159265358979, 3141592653589793, 7853981633974483, 314159265358979323, 1570796326794896619, 981747704246810387
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|