|
|
A175741
|
|
Integers n for which the period of the decimal expansion of 1/n is 100.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|