A265182 Base-10 analog of Marko Riedel's A265008.

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

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

Cf. A265008, A265236.

See A265183 for the version where A, B, C may be zero.

Cf. A218978.

Sequence in context: A136027 A238371 A133772 * A349530 A251549 A129972

Adjacent sequences: A265179 A265180 A265181 * A265183 A265184 A265185

Keyword

nonn,base

Author

N. J. A. Sloane, Dec 04 2015

Extensions

Corrected by Lars Blomberg, Dec 05 2015

Status

approved