|
%I #8 Jun 29 2012 18:55:59
%S 6,0,714285,63,846153,7647058823529411,894736842105263157,
%T 8260869565217391304347,7931034482758620689655172413,935483870967741,
%U 837,90243,953488372093023255813,9148936170212765957446808510638297872340425531,8867924528301
%N The periodic part of the decimal expansion of prime(n-1) / prime(n).
%C Number of digits of the periodic parts for n>=3 in A002371, A048595 and A071126.
%H Jaroslav Krizek, <a href="/A212528/b212528.txt">Table of n, a(n) for n = 2..60</a>
%t Table[If[n == 3, 0, FromDigits[RealDigits[Prime[n-1]/Prime[n]][[1,1]]]], {n, 2, 10}]
%Y Cf. A002371, A048595, A071126.
%K nonn,base
%O 2,1
%A _Jaroslav Krizek_, Jun 29 2012
%E Corrected by _T. D. Noe_, Jun 29 2012
|
