1,2

Eric Weisstein's World of Mathematics, Full Reptend Prime

Eric Weisstein's World of Mathematics, Cyclic Number

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 [From Vladimir Orlovsky (4vladimir(AT)gmail.com), May 21 2009]

Sequence in context: A101202 A144504 A146754 this_sequence A145742 A133324 A110084

Adjacent sequences: A004039 A004040 A004041 this_sequence A004043 A004044 A004045

nonn

N. J. A. Sloane (njas(AT)research.att.com).