login
A265182
Base-10 analog of Marko Riedel's A265008.
3
1, 0, 0, 0, 0, 0, 0, 0, 0, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 0, 5, 0, 0, 1, 1, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 1, 0, 0, 1, 0, 5, 1, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0
OFFSET
1,10
LINKS
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
See A265183 for the version where A, B, C may be zero.
Cf. A218978.
Sequence in context: A136027 A238371 A133772 * A349530 A251549 A129972
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 04 2015
EXTENSIONS
Corrected by Lars Blomberg, Dec 05 2015
STATUS
approved