OFFSET
1,1
COMMENTS
EXAMPLE
1/6 = 0.166666..., and 6 is the smallest number m such that the largest digit in the decimal expansion of 1/m is 6, so a(1) = 6.
As 1/39 = 0.025641025641..., 39 is a term.
MATHEMATICA
f[n_] := Union[ Flatten[ RealDigits[ 1/n][[1]] ]]; Select[Range@1500000, Max@ f@# == 6 &]
PROG
(Python)
from itertools import count, islice
from sympy import n_order, multiplicity
def A351472_gen(startvalue=1): # generator of terms >= startvalue
for m in count(max(startvalue, 1)):
m2, m5 = multiplicity(2, m), multiplicity(5, m)
if max(str(10**(max(m2, m5)+n_order(10, m//2**m2//5**m5))//m)) == '6':
yield m
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott and Robert G. Wilson v, Feb 16 2022
STATUS
approved