|
%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
|
