|
%I #30 Nov 22 2022 22:52:44
%S 3,1,10,12,1,0,4,9,0,5,2,10,2,12,7,7,3,6,9,12,0,11,11,8,9,12,12,9,8,8,
%T 3,2,7,8,2,9,8,3,5,8,11,3,7,0,1,6,0,3,0,6,1,3,3,12,10,5,10,12,11,10,5,
%U 7,6,1,4,11,6,5,11,4,1,0,0,2,0,12,2,2,11,4,12,7,1,4,5,7,10,9,5,5,10,5
%N Expansion of Pi in base 13.
%e 3.1ac1049052a2c77369c0aa89cc988327829835...
%t RealDigits[Pi, 13, 111][[1]] (* slightly modified by _Robert G. Wilson v_, Dec 13 2017 *)
%t Table[ResourceFunction["NthDigit"][Pi, n, 13], {n, 1, 111}] (* _Joan Ludevid_, Oct 11 2022; easy to compute a(10000000)=1 with this function; requires Mathematica 12.0+ *)
%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), this sequence (b=13), A068439 (b=14), A068440 (b=15), A062964 (b=16), A060707 (b=60).
%Y Cf. A007514.
%K easy,nonn,base,cons
%O 1,1
%A _Benoit Cloitre_, Mar 09 2002
|
