A236404 Numbers not in A203565.

22, 23, 24, 25, 26, 27, 28, 29, 32, 33, 34, 35, 36, 37, 38, 39, 42, 43, 44, 45, 46, 47, 48, 49, 52, 53, 54, 55, 56, 57, 58, 59, 62, 63, 64, 65, 66, 67, 68, 69, 72, 73, 74, 75, 76, 77, 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

Offset: 1

Author

N. J. A. Sloane, Jan 30 2014

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A203565, A236402, A236403.

Programs

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