cp's OEIS Frontend

A236404 Numbers not in A203565.

%I A236404 #9 Oct 18 2023 14:39:25
%S A236404 22,23,24,25,26,27,28,29,32,33,34,35,36,37,38,39,42,43,44,45,46,47,48,
%T A236404 49,52,53,54,55,56,57,58,59,62,63,64,65,66,67,68,69,72,73,74,75,76,77,
%U A236404 78,79,82,83,84,85,86,87,88,89,92,93,94,95,96,97,98,99,122,123,124,125,127,128,129,132,133,134,135,136,137,138,139,142,143,144,145,146
%N A236404 Numbers not in A203565.
%H A236404 Robert Israel, <a href="/A236404/b236404.txt">Table of n, a(n) for n = 1..10000</a>
%p A236404 filter:= proc(n) local L,d,i,p,np;
%p A236404   L:= convert(n,base,10);
%p A236404   d:= nops(L);
%p A236404   for i from 1 to d-1 do
%p A236404     p:= convert(L[i]*L[i+1],base,10);
%p A236404     np:= nops(p);
%p A236404     if andmap(j -> L[j..j+np-1] <> p, [$1..d-np+1]) then return true fi
%p A236404   od;
%p A236404   false
%p A236404 end proc:
%p A236404 select(filter, [$1..200]); # _Robert Israel_, Oct 18 2023
%Y A236404 Cf. A203565, A236402, A236403.
%K A236404 nonn,base
%O A236404 1,1
%A A236404 _N. J. A. Sloane_, Jan 30 2014