A175741 Integers n for which the period of the decimal expansion of 1/n is 100.

25351, 50702, 60101, 76053, 101404, 120202, 126755, 152106, 180303, 202808, 228159, 240404, 253510, 278861, 300505, 304212, 360606, 380265, 405616, 456318, 480808, 507020, 510151, 540909, 557722, 601010, 608424, 633775, 661111, 721212, 760530, 811232, 836583, 888791, 901515, 912636, 961616

Offset: 1

Author

Harvey P. Dale, Dec 04 2010

Keywords

• nonn
• base

Comments

Numbers such that A007732(n) = 100. - Andrew Howroyd, Jan 14 2020

Links

• Andrew Howroyd, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A007732, A120100.

Programs

Mathematica

Transpose[Select[Table[{n,Length[RealDigits[1/n][[1,-1]]]},{n,500000}],#[[2]]==100&]][[1]]

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

Extensions

Terms a(22) and beyond from Andrew Howroyd, Jan 14 2020