A004042 Periods of reciprocals of A006883, starting with first nonzero digit.

0, 142857, 5882352941176470, 526315789473684210, 4347826086956521739130, 3448275862068965517241379310, 2127659574468085106382978723404255319148936170, 1694915254237288135593220338983050847457627118644067796610

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• base

Comments

A variant of A180340.

Links

• Ray Chandler, Table of n, a(n) for n = 1..61
• C. A. Van Cott, The Integer Hokey Pokey, Math Horizons, Vol. 28, pp. 24-27, November 2020.
• Eric Weisstein's World of Mathematics, Full Reptend Prime
• Eric Weisstein's World of Mathematics, Cyclic Number

Crossrefs

Cf. A180340.

Programs

Mathematica

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 *)

Extensions

Definition corrected by Max Alekseyev, Feb 12 2012