A212720 The periodic part of the decimal expansion of n/(n+1). Any initial 0's are to be placed at end of cycle.
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
Examples
6/7 = 0.85714285714285714285714285714286... and digit-cycle is 857142, so a(6) = 857142.
Links
- Jaroslav Krizek, Table of n, a(n) for n = 1..100
Crossrefs
Programs
-
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 *)