A353439 Integers m such that the decimal expansion of 1/m contains the digit 3.
3, 12, 13, 17, 19, 23, 26, 27, 28, 29, 30, 31, 32, 33, 34, 38, 41, 42, 43, 46, 47, 48, 49, 51, 52, 53, 57, 58, 59, 61, 62, 63, 65, 67, 68, 69, 71, 72, 73, 74, 75, 76, 81, 83, 85, 87, 88, 89, 92, 93, 94, 95, 97, 98, 102, 103, 104, 105, 106, 107, 109, 113, 114, 115, 116
Offset: 1
Examples
m = 12 is a term since 1/12 = 0.083333333333... (here, 3 is the smallest digit). m = 13 is a term since 1/13 = 0.076923076923... m = 75 is a term since 1/15 = 0.013333333333... (here, 3 is the largest digit).
Crossrefs
Programs
-
Mathematica
f[n_] := Union[ Flatten[ RealDigits[ 1/n][[1]] ]]; Select[ Range@ 125, MemberQ[f@#, 3] &]
Comments