cp's OEIS Frontend

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

%I A265182 #23 Dec 06 2015 10:34:48
%S A265182 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,
%T A265182 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,
%U A265182 0,0,5,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0
%N A265182 Base-10 analog of Marko Riedel's A265008.
%H A265182 Reinhard Zumkeller, <a href="/A265182/b265182.txt">Table of n, a(n) for n = 1..10000</a>
%p A265182 F:= proc(n) local L, ss;
%p A265182   L:= convert(n, base, 10);
%p A265182   ss:= {seq(seq(add(10^(i-j)*L[i], i=j..k), j=1..k), k=1..nops(L))} minus {0};
%p A265182   numboccur(true, [seq(seq(member(a*b, ss), a=ss), b=ss)]);
%p A265182 end proc:
%p A265182 seq(F(n), n=1..1000); # _Robert Israel_, Dec 06 2015
%o A265182 (Haskell)
%o A265182 a265182 n = length [() | let cs = dropWhile (== 0) $ a218978_row n, c <- cs,
%o A265182             let as = takeWhile (<= c) cs, a <- as, b <- as, a * b == c]
%o A265182 -- _Reinhard Zumkeller_, Dec 05 2015
%Y A265182 Cf. A265008, A265236.
%Y A265182 See A265183 for the version where A, B, C may be zero.
%Y A265182 Cf. A218978.
%K A265182 nonn,base
%O A265182 1,10
%A A265182 _N. J. A. Sloane_, Dec 04 2015
%E A265182 Corrected by _Lars Blomberg_, Dec 05 2015