login
Numbers k such that the decimal representation of 1/k does not terminate and has odd period.
3

%I #38 Nov 19 2023 21:17:15

%S 3,6,9,12,15,18,24,27,30,31,36,37,41,43,45,48,53,54,60,62,67,71,72,74,

%T 75,79,81,82,83,86,90,93,96,106,107,108,111,120,123,124,129,134,135,

%U 142,144,148,150,151,155,158,159,162,163,164,166,172,173,180,185,186,191,192,199,201,205,212,213,214,215

%N Numbers k such that the decimal representation of 1/k does not terminate and has odd period.

%C From _Robert G. Wilson v_, Apr 02 2017: (Start)

%C If k is in the sequence, then so are 2k and 5k.

%C The complement of A284602.

%C Primitives: 3, 9, 27, 31, 37, 41, 43, 53, 67, 71, 79, 81, 83, 93, 107, 111, 123, ..., .

%C (End)

%C From _Robert Israel_, Apr 03 2017: (Start)

%C Numbers of the form 2^j * 5^k * m where m > 1, gcd(m,10)=1 and the multiplicative order of 10 (mod m) is odd.

%C Complement of A003592 in the multiplicative semigroup generated by A186635, i.e., numbers whose prime factors are in A186635 with at least one prime factor not 2 or 5. (End)

%H Robert G. Wilson v, <a href="/A284601/b284601.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/1#1overn">Index entries for sequences related to decimal expansion of 1/n</a>

%e 27 is in the sequence because 1/27 = 0.0370(370)... period is 3, 3 is odd.

%e 2 and 5 are not in the sequence because 1/2 = 0.5 and 1/5 = 0.2 are terminating expansions. See also comments in A051626 and A284602.

%p filter:= proc(n) local m;

%p m:= n/2^padic:-ordp(n,2);

%p m:= m/5^padic:-ordp(m,5);

%p m > 1 and numtheory:-order(10,m)::odd

%p end proc:

%p select(filter, [$1..1000]); # _Robert Israel_, Apr 03 2017

%t Select[Range[215], Mod[Length[RealDigits[1/#][[1, -1]]], 2] == 1 & ]

%Y Cf. A002371, A003592, A003814, A051626, A186635, A284602.

%K nonn,base

%O 1,1

%A _Ilya Gutkovskiy_, Mar 30 2017