OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
As 1/37 = 0.027027027..., 37 is a term.
As 1/148 = 0.00675675675675..., 148 is a term.
MATHEMATICA
f[n_] := Union[ Flatten[ RealDigits[ 1/n][[1]] ]]; Select[Range@1500000, Max@ f@# == 7 &]
PROG
(Python)
from itertools import count, islice
from sympy import multiplicity, n_order
def A351473_gen(startvalue=1): # generator of terms >= startvalue
for a in count(max(startvalue, 1)):
m2, m5 = (~a&a-1).bit_length(), multiplicity(5, a)
k, m = 10**max(m2, m5), 10**n_order(10, a//(1<<m2)//5**m5)-1
if max(max(str(c:=k//a)), max(str(m*k//a-c*m)))=='7':
yield a
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott and Robert G. Wilson v, Feb 17 2022
STATUS
approved