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
Links
- Andrew Howroyd, Table of n, a(n) for n = 1..1000
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
Comments