A284602 Numbers k such that the decimal representation of 1/k is either finite or has even period.
1, 2, 4, 5, 7, 8, 10, 11, 13, 14, 16, 17, 19, 20, 21, 22, 23, 25, 26, 28, 29, 32, 33, 34, 35, 38, 39, 40, 42, 44, 46, 47, 49, 50, 51, 52, 55, 56, 57, 58, 59, 61, 63, 64, 65, 66, 68, 69, 70, 73, 76, 77, 78, 80, 84, 85, 87, 88, 89, 91, 92, 94, 95, 97, 98, 99, 100, 101, 102, 103, 104, 105, 109, 110, 112, 113, 114, 115
Offset: 1
Examples
14 is in the sequence because 1/14 = 0.0714285(714285)..., whose period is 6, an even number.
Links
Programs
-
Mathematica
Select[Range[115], Mod[Length[RealDigits[1/#][[1, -1]]], 2] == 0 & ]
Comments