login
Periods of reciprocals of A006883, starting with first nonzero digit.
8

%I #28 Jul 02 2021 00:26:30

%S 0,142857,5882352941176470,526315789473684210,4347826086956521739130,

%T 3448275862068965517241379310,

%U 2127659574468085106382978723404255319148936170,1694915254237288135593220338983050847457627118644067796610

%N Periods of reciprocals of A006883, starting with first nonzero digit.

%C A variant of A180340.

%H Ray Chandler, <a href="/A004042/b004042.txt">Table of n, a(n) for n = 1..61</a>

%H C. A. Van Cott, <a href="https://doi.org/10.1080/10724117.2020.1809284">The Integer Hokey Pokey</a>, Math Horizons, Vol. 28, pp. 24-27, November 2020.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FullReptendPrime.html">Full Reptend Prime</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CyclicNumber.html">Cyclic Number</a>

%t f[n_]:=Block[{q},q=Last[First[RealDigits[1/n]]];If[IntegerQ[q],q={}];FromDigits[q]]; q=0;lst={};Do[If[StringLength[ToString[f[n]]]>q,AppendTo[lst,f[n]];q=StringLength[ToString[f[n]]]],{n,5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, May 21 2009 *)

%Y Cf. A180340.

%K nonn,base

%O 1,2

%A _N. J. A. Sloane_

%E Definition corrected by _Max Alekseyev_, Feb 12 2012