OFFSET
1,2
COMMENTS
a(n) is the number of n-digit numbers in A348545.
FORMULA
MATHEMATICA
Table[{lo, hi}={10^(n-1), 10^n}; Length@Select[Union[Union@Flatten@Table[a*b, {a, 3, Floor[hi/3], 10}, {b, a, Floor[hi/a], 10}], Union@Flatten@Table[a*b, {a, 7, Floor[hi/7], 10}, {b, a, Floor[hi/a], 10}]], lo<#<hi&], {n, 8}]
PROG
(Python)
def a(n):
lo, hi = 10**(n-1), 10**n
return len(set(a*b for a in range(3, hi//3+1, 10) for b in range(a, hi//a+1, 10) if lo <= a*b < hi) | set(a*b for a in range(7, hi//7+1, 10) for b in range(a, hi//a+1, 10) if lo <= a*b < hi))
print([a(n) for n in range(1, 9)]) # Michael S. Branicky, Oct 22 2021
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Stefano Spezia, Oct 22 2021
EXTENSIONS
a(9) from Michael S. Branicky, Oct 22 2021
a(10)-a(15) from Martin Ehrenstein, Nov 06 2021
STATUS
approved