login
Expansion of Pi in base 64.
1

%I #20 Nov 20 2018 21:37:33

%S 3,9,3,61,42,34,8,22,35,2,13,12,19,6,24,40,46,0,55,1,51,17,10,16,9,14,

%T 2,8,41,39,51,7,16,2,2,59,58,38,14,49,14,27,8,37,5,10,2,7,38,14,13,0,

%U 19,29,59,57,20,25,44,60,52,58,16,49,44,48,10,48,41,45

%N Expansion of Pi in base 64.

%H Iain Fox, <a href="/A293634/b293634.txt">Table of n, a(n) for n = 1..20000</a>

%H <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a>

%F a(n+1) = 8*A006941(2n) + A006941(2n+1).

%e 3.93zgY8MZ2DC...

%t First@ RealDigits[N[Pi, 105], 64] (* _Michael De Vlieger_, Oct 14 2017 *)

%o (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

%o (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

%Y Pi in base b: A004601 (b=2), A004602 (b=3), A004603 (b=4), A004604 (b=5), A004605 (b=6), A004606 (b=7), A006941 (b=8), A004608 (b=9), A000796 (b=10), A068436 (b=11), A068437 (b=12), A068438 (b=13), A068439 (b=14), A068440 (b=15), A062964 (b=16), A060707 (b=60), this sequence (b=64).

%K base,cons,easy,nonn

%O 1,1

%A _Iain Fox_, Oct 13 2017