|
|
A004042
|
|
Periods of reciprocals of A006883, starting with first nonzero digit.
|
|
8
|
|
|
0, 142857, 5882352941176470, 526315789473684210, 4347826086956521739130, 3448275862068965517241379310, 2127659574468085106382978723404255319148936170, 1694915254237288135593220338983050847457627118644067796610
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|