A303877 Expansion of 1 in base Pi, 1 = Sum_{n>=0} a(n)/Pi^(n+1).
3, 0, 1, 1, 0, 2, 1, 1, 1, 0, 0, 2, 0, 2, 2, 1, 1, 3, 0, 0, 0, 1, 0, 2, 0, 0, 0, 2, 1, 0, 2, 2, 2, 2, 1, 2, 2, 1, 2, 0, 2, 0, 1, 2, 1, 2, 0, 2, 0, 0, 0, 0, 0, 1, 2, 2, 2, 2, 1, 2, 1, 0, 1, 2, 0, 0, 0, 0, 2, 2, 1, 1, 0, 0, 2, 2, 1, 0, 0, 2, 0, 0, 1, 0, 1, 0, 2, 2, 1, 0, 0, 1, 1, 0, 2, 2, 0, 2, 2, 0, 2, 0, 2, 1, 1
Offset: 0
Examples
1 = 0.30110211100202211300010200021022221221202..._{Pi}
Links
- Simon Plouffe, Generalized expansion of real numbers, 2006-2014
Programs
-
Maple
r2bk:=proc(s, b) local i, j, v, premier, fin, lll, liste, w, baz; baz := evalf(b); v := abs(evalf(s)); fin := trunc(evalf(Digits/log10(b))) - 10; lll := [seq(baz^j, j = 1 .. fin)]; liste := []; for i to fin do w := trunc(v*lll[i]); v := v - w/lll[i]; liste := [op(liste), w] end do; RETURN(liste) end; # enter a real number s and a base b > 1; b can be a real number, too.
Comments