OFFSET
1,1
COMMENTS
EXAMPLE
As 1/33 = 0.0303030303..., 33 is a term.
As 1/75 = 0.0133333333..., 75 is a term.
As 1/429 = 0.002331002331002331..., 429 is a term.
MATHEMATICA
Select[Range[10^5], Max[RealDigits[1/#][[1]]] == 3 &] (* Amiram Eldar, Jan 30 2022 *)
PROG
(Python)
from fractions import Fraction
from itertools import count, islice
from sympy import n_order, multiplicity
def repeating_decimals_expr(f, digits_only=False):
""" returns repeating decimals of Fraction f as the string aaa.bbb[ccc].
returns only digits if digits_only=True.
"""
a, b = f.as_integer_ratio()
m2, m5 = multiplicity(2, b), multiplicity(5, b)
r = max(m2, m5)
k, m = 10**r, 10**n_order(10, b//2**m2//5**m5)-1
c = k*a//b
s = str(c).zfill(r)
if digits_only:
return s+str(m*k*a//b-c*m)
else:
w = len(s)-r
return s[:w]+'.'+s[w:]+'['+str(m*k*a//b-c*m)+']'
def A350814_gen(startvalue=1): # generator of terms >= startvalue
return filter(lambda m:max(repeating_decimals_expr(Fraction(1, m), digits_only=True)) == '3', count(max(startvalue, 1)))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Jan 30 2022
EXTENSIONS
More terms from Amiram Eldar, Jan 30 2022
STATUS
approved