A093409 - OEIS (original) (raw)

1, 1, 0, 0, 0, 0, 9, 9, 9, 9, 6, 9, 1, 3, 4, 6, 3, 4, 4, 5, 0, 2, 6, 6, 7, 6, 3, 5, 5, 6, 9, 5, 9, 2, 9, 1, 8, 7, 1, 0, 8, 0, 8, 3, 1, 8, 6, 9, 1, 8, 2, 8, 3, 0, 5, 5, 8, 2, 1, 6, 2, 0, 8, 1, 1, 4, 3, 9, 1, 6, 7, 2, 5, 6, 0, 5, 7, 9, 0, 3, 5, 6, 7, 6, 0, 3, 5, 7, 2, 0, 9, 6, 0, 8, 0, 4, 8, 0, 3, 7, 4, 2

COMMENTS

Approximately equal to Liouville's constant A012245.

MATHEMATICA

RealDigits[ Root[ 10*#^6 - 75*#^3 - 190*# + 21 &, 1], 10, 102] // First (* Jean-François Alcover, Feb 08 2013 *)

PROG

(PARI) { allocatemem(932245000); default(realprecision, 20080); x=10*solve(x=0, 1, 10*x^6 - 75*x^3 - 190*x + 21); for (n=0, 20000, d=floor(x); x=(x-d)*10; write("b093409.txt", n, " ", d)); } \\ Harry J. Smith, Jun 19 2009