|
%I #20 Jun 24 2017 00:26:33
%S 0,3,0,1,4,2,8,5,7,0,9,0,7,6,9,2,3,0,5,8,8,2,3,5,2,9,4,1,1,7,6,4,7,0,
%T 5,2,6,3,1,5,7,8,9,4,7,3,6,8,4,2,1,0,4,3,4,7,8,2,6,0,8,6,9,5,6,5,2,1,
%U 7,3,9,1,3,0,3,4,4,8,2,7,5,8,6,2,0,6,8,9,6,5,5,1,7,2,4,1,3,7,9,3,1
%N Table in which n-th row lists digits in periodic part of decimal expansion of reciprocal of n-th prime.
%C The length of row n is A048595(n). - _T. D. Noe_, May 14 2008
%C The convention is that the earliest period is displayed. - _T. D. Noe_, May 14 2008
%C Conjecture: regarded as a decimal fraction, this number is normal in base 10. - _Franklin T. Adams-Watters_, Aug 20 2012
%D Conway and Guy, The Book of Numbers, p. 160
%H T. D. Noe, <a href="/A048963/b048963.txt">Rows n=1..50, flattened</a>
%H <a href="/index/1#1overn">Index entries for sequences related to decimal expansion of 1/n</a>
%e 1/2=.5 ->0; 1/3=.3333... -> 3; 1/5=.2 ->0; 1/7=.142857... -> 1 4 2 8 5 7; etc.
%e 0; 3; 0; 1,4,2,8,5,7; 0,9; 7,6,9,2,3,0; 5,8,8,2,3,5,2,9,4,1,1,7,6,4,7,0; ...
%t Clear[d]; d[{{2|5}, 0}] = {0}; d[{{{n__}}, 0}] := {n}; d[{{{n__, 0}}, k_?Negative}] := Join[Table[0, {-k}], Drop[{n}, k+1]]; A048963 = d /@ RealDigits[1/Prime[Range[10]]] (* _Jean-François Alcover_, Dec 10 2014 *)
%Y Cf. A048962.
%K nonn,base,easy,tabf,nice
%O 1,2
%A _N. J. A. Sloane_
|
