A353444 Integers m such that the decimal expansion of 1/m contains the digit 8.
7, 12, 14, 17, 19, 23, 26, 28, 29, 31, 34, 35, 38, 42, 43, 46, 47, 48, 49, 51, 53, 54, 55, 56, 57, 58, 59, 61, 62, 63, 65, 67, 68, 69, 70, 71, 72, 73, 76, 77, 78, 79, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95, 97, 98, 102, 103, 104, 105, 107, 109, 112, 113, 114, 115, 116, 117, 118
Offset: 1
Examples
m = 12 is a term since 1/12 = 0.08333333333... m = 17 is a term since 1/17 = 0.05882352941176470588235294117647... m = 125 is a term since 1/125 = 0.008.
Crossrefs
Programs
-
Mathematica
f[n_] := Union[ Flatten[ RealDigits[ 1/n][[1]] ]]; Select[ Range@ 150, MemberQ[f@#, 8] &] Select[Range[150],MemberQ[realDigitsRecip[#],8]&] (* The realDigitsRecip program is at A021200 *) (* Harvey P. Dale, Jan 11 2025 *)
Comments