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

Cf. A203565, A236402, A236403.

Sequence in context: A152835 A004511 A296763 * A058814 A034895 A106582

Adjacent sequences: A236401 A236402 A236403 * A236405 A236406 A236407

Keyword

nonn,base

Author

N. J. A. Sloane, Jan 30 2014

Status

approved