login
A212720
The periodic part of the decimal expansion of n/(n+1). Any initial 0's are to be placed at end of cycle.
1
0, 6, 0, 0, 3, 857142, 0, 8, 0, 90, 6, 923076, 285714, 3, 0, 9411764705882352, 4, 947368421052631578, 0, 952380, 54, 9565217391304347826086, 3, 0, 615384, 962, 428571, 9655172413793103448275862068, 6, 967741935483870, 0, 96, 7058823529411764, 714285, 2, 972
OFFSET
1,2
LINKS
EXAMPLE
6/7 = 0.85714285714285714285714285714286... and digit-cycle is 857142, so a(6) = 857142.
MATHEMATICA
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 *)
CROSSREFS
Cf. A036275 (periodic part of the decimal expansion of 1/n), A158911 (numbers n such that a(n)=0), A051037.
Sequence in context: A186978 A228532 A019956 * A114760 A261508 A344182
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Jun 01 2012
STATUS
approved