OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L, d, i, p, np;
L:= convert(n, base, 10);
d:= nops(L);
for i from 1 to d-1 do
p:= convert(L[i]*L[i+1], base, 10);
np:= nops(p);
if andmap(j -> L[j..j+np-1] <> p, [$1..d-np+1]) then return true fi
od;
false
end proc:
select(filter, [$1..200]); # Robert Israel, Oct 18 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Jan 30 2014
STATUS
approved