OFFSET
1,1
LINKS
EXAMPLE
3.93zgY8MZ2DC...
MATHEMATICA
First@ RealDigits[N[Pi, 105], 64] (* Michael De Vlieger, Oct 14 2017 *)
PROG
(PARI) { default(realprecision, 36300); x=Pi; for (n=1, 20000, d=floor(x); x=(x-d)*64; write("b293634.txt", n, " ", d)); } \\ Iain Fox, Oct 30 2018
(PARI) lista() = {my(v = binary(Pi)); print1(fromdigits(v[1], 2), ", "); v = v[2]; for (n=1, #v\6, my(v6 = vector(6, k, v[6*(n-1)+k])); print1(fromdigits(v6, 2), ", "); ); } \\ Michel Marcus, Nov 01 2018
CROSSREFS
KEYWORD
AUTHOR
Iain Fox, Oct 13 2017
STATUS
approved