A236404 - OEIS

%I #9 Oct 18 2023 14:39:25

%S 22,23,24,25,26,27,28,29,32,33,34,35,36,37,38,39,42,43,44,45,46,47,48,

%T 49,52,53,54,55,56,57,58,59,62,63,64,65,66,67,68,69,72,73,74,75,76,77,

%U 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 Numbers not in A203565.

%H Robert Israel, <a href="/A236404/b236404.txt">Table of n, a(n) for n = 1..10000</a>

%p filter:= proc(n) local L,d,i,p,np;

%p   L:= convert(n,base,10);

%p   d:= nops(L);

%p   for i from 1 to d-1 do

%p     p:= convert(L[i]*L[i+1],base,10);

%p     np:= nops(p);

%p     if andmap(j -> L[j..j+np-1] <> p, [$1..d-np+1]) then return true fi

%p   od;

%p   false

%p end proc:

%p select(filter, [$1..200]); # _Robert Israel_, Oct 18 2023

%Y Cf. A203565, A236402, A236403.

%K nonn,base

%O 1,1

%A _N. J. A. Sloane_, Jan 30 2014