|
%I #12 Mar 07 2017 10:01:18
%S 0,6,0,0,3,857142,0,8,0,90,6,923076,285714,3,0,9411764705882352,4,
%T 947368421052631578,0,952380,54,9565217391304347826086,3,0,615384,962,
%U 428571,9655172413793103448275862068,6,967741935483870,0,96,7058823529411764,714285,2,972
%N The periodic part of the decimal expansion of n/(n+1). Any initial 0's are to be placed at end of cycle.
%H Jaroslav Krizek, <a href="/A212720/b212720.txt">Table of n, a(n) for n = 1..100</a>
%e 6/7 = 0.85714285714285714285714285714286... and digit-cycle is 857142, so a(6) = 857142.
%t Table[FromDigits[FindTransientRepeat[RealDigits[n/(n+1),10,100][[1]],3][[2]]],{n,40}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 07 2017 *)
%Y Cf. A036275 (periodic part of the decimal expansion of 1/n), A158911 (numbers n such that a(n)=0), A051037.
%K nonn,base
%O 1,2
%A _Jaroslav Krizek_, Jun 01 2012
|
