OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
1 = empty product; 99 = 3 * 33; 1089 = 33 * 33; 999 = 3 * 333.
MAPLE
M:= 10^8: # for terms <= M
S:= {1}:
for d from 1 to ilog10(M) do
x:= 3/9*(10^d-1); T:= {}:
for s in S do
T:= T union {seq(s*x^i, i=1..floor(log[x](M/s)))};
od;
S:= S union T;
od:
sort(convert(S, list)); # Robert Israel, Dec 05 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 03 2009
EXTENSIONS
Corrected and extended by Claudio Meller, Jun 06 2009
1 added by N. J. A. Sloane, Dec 04 2017
STATUS
approved