OFFSET
1,10
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MAPLE
F:= proc(n) local L, ss;
L:= convert(n, base, 10);
ss:= {seq(seq(add(10^(i-j)*L[i], i=j..k), j=1..k), k=1..nops(L))} minus {0};
numboccur(true, [seq(seq(member(a*b, ss), a=ss), b=ss)]);
end proc:
seq(F(n), n=1..1000); # Robert Israel, Dec 06 2015
PROG
(Haskell)
a265182 n = length [() | let cs = dropWhile (== 0) $ a218978_row n, c <- cs,
let as = takeWhile (<= c) cs, a <- as, b <- as, a * b == c]
-- Reinhard Zumkeller, Dec 05 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 04 2015
EXTENSIONS
Corrected by Lars Blomberg, Dec 05 2015
STATUS
approved