%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