|
%I #19 Aug 22 2019 06:23:46
%S 1,1,1,2,2,0,1,0,1,1,0,1,2,0,2,2,2,0,0,1,1,1,1,1,0,1,1,1,2,1,2,2,2,0,
%T 1,2,0,1,1,0,0,2,2,1,1,2,1,0,1,2,0,1,1,1,2,0,2,2,2,0,1,0,2,0,0,1,2,2,
%U 0,0,1,2,0,0,2,1,1,1,0,2,2,1,1,1,0,1,1,0,0,0,0,1,2,1,2,0,0,0,1
%N Coefficients of 3-adic expansion of exp(3).
%H Robert Israel, <a href="/A317675/b317675.txt">Table of n, a(n) for n = 0..10000</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/P-adic_exponential_function">p-adic exponential</a>
%e exp(3) = 1 + 3 + 9/2 + 9/2 + 27/8 + ... = 1 + 3 + 3^2 + 2*3^3 + O(3^4).
%p R:= evalp(exp(3),3,200):
%p op([1,3],R);
%o (PARI) N=100; Vecrev(digits(lift(exp(3+O(3^N))), 3), N) \\ _Seiichi Manyama_, Aug 20 2019
%Y Cf. A091933, A309866.
%K nonn,base
%O 0,4
%A _Robert Israel_, Aug 03 2018
|
