|
%I #10 Jan 14 2020 22:15:37
%S 25351,50702,60101,76053,101404,120202,126755,152106,180303,202808,
%T 228159,240404,253510,278861,300505,304212,360606,380265,405616,
%U 456318,480808,507020,510151,540909,557722,601010,608424,633775,661111,721212,760530,811232,836583,888791,901515,912636,961616
%N Integers n for which the period of the decimal expansion of 1/n is 100.
%C Numbers such that A007732(n) = 100. - _Andrew Howroyd_, Jan 14 2020
%H Andrew Howroyd, <a href="/A175741/b175741.txt">Table of n, a(n) for n = 1..1000</a>
%t Transpose[Select[Table[{n,Length[RealDigits[1/n][[1,-1]]]},{n,500000}],#[[2]]==100&]][[1]]
%o (PARI) is(n)={my(t=n/(2^valuation(n,2)*5^valuation(n,5))); 100==znorder(Mod(10,t))}
%o {for(n=1, 10^6, if(is(n), print1(n, ", ")))} \\ _Andrew Howroyd_, Jan 14 2020
%Y Cf. A007732, A120100.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Dec 04 2010
%E Terms a(22) and beyond from _Andrew Howroyd_, Jan 14 2020
|
