OFFSET
1,2
COMMENTS
a(n) is the number of n-digit numbers in A347747.
FORMULA
MATHEMATICA
Table[{lo, hi}={10^(n-1), 10^n}; Length@Select[Union[Union@Flatten@Table[a*b, {a, 4, Floor[hi/4], 10}, {b, a, Floor[hi/a], 10}], Union@Flatten@Table[a*b, {a, 6, Floor[hi/6], 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(4, hi//4+1, 10) for b in range(a, hi//a+1, 10) if lo <= a*b < hi) | set(a*b for a in range(6, hi//6+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 06 2021
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Stefano Spezia, Sep 12 2021
EXTENSIONS
a(9)-a(10) from Michael S. Branicky, Oct 06 2021
STATUS
approved