|
%I #21 Dec 09 2021 16:32:00
%S 0,1,0,2,0,1,0,1,0,0,0,0,0,0,1,2,0,1,0,1,1,0,0,0,0,0,0,2,0,0,0,1,0,0,
%T 0,2,0,0,0,2,0,2,0,1,2,0,0,1,2,1,0,1,0,1,0,0,0,0,0,1,0,0,0,2,0,2,0,1,
%U 0,0,0,1,0,0,2,1,0,0,0,1,0,0,0,2,2,0,0,2,0,2,0,0,0,0,0,2,0,1,0,2
%N n-th digit after the radix point in the base-3 expansion of 1/n.
%H Antti Karttunen, <a href="/A323591/b323591.txt">Table of n, a(n) for n = 1..20000</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Decimal_separator#Radix_point">Decimal separator</a> (subsection Radix point)
%e a(16) = 2, as the 16th digit in the fractional part of the base-3 expansion of 1/16 = 0.001200120012001200120012... is 2.
%t a = {}; Do[a = Append[a, Mod[ Floor[1/n * 3^n], 3] ], {n, 1, 100} ]; a
%o (PARI) A323591(n) = (floor((3^n)*(1/n))%3); \\ _Antti Karttunen_, Dec 09 2021
%Y Column 3 of A322392.
%Y Cf. A061480, A323547, A323592.
%K nonn,base,easy
%O 1,4
%A _Derek J. Graves_, Jan 18 2019, on behalf of _Joseph A. Stocke_
%E Definition clarified by _Antti Karttunen_, Dec 09 2021
|
