OFFSET
1,1
COMMENTS
Numbers such that A007732(n) = 100. - Andrew Howroyd, Jan 14 2020
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
MATHEMATICA
Transpose[Select[Table[{n, Length[RealDigits[1/n][[1, -1]]]}, {n, 500000}], #[[2]]==100&]][[1]]
PROG
(PARI) is(n)={my(t=n/(2^valuation(n, 2)*5^valuation(n, 5))); 100==znorder(Mod(10, t))}
{for(n=1, 10^6, if(is(n), print1(n, ", ")))} \\ Andrew Howroyd, Jan 14 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Dec 04 2010
EXTENSIONS
Terms a(22) and beyond from Andrew Howroyd, Jan 14 2020
STATUS
approved