|
%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
|
