OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
g:= proc(m, n, p)
local Lm, Ln;
Lm:= convert(m, base, p);
Ln:= convert(n, base, p);
min(Lm[1..nops(Ln)]-Ln) < 0
end proc:
filter:= proc(n) local p;
for p in numtheory:-factorset(n+1) do
if not g(n, n/2, p) then return false fi;
od;
for p in numtheory:-factorset(n/2+1) do
if not g(n+1, n/2, p) then return false fi
od;
true
end proc:
select(filter, [seq(i, i=2..15000, 2)]);
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Jan 21 2020
STATUS
approved