OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..2000
EXAMPLE
8 is a term because 8 + 8 = 16 = 2^4 or 4^2.
10340 is a term because 10340 + 04301 = 14641 is a perfect power 11^4.
MAPLE
filter:= proc(n) local L, i, x;
L:= convert(n, base, 10);
x:= add(10^(i-1)*L[-i], i=1..nops(L));
igcd(ifactors(n+x)[2][.., 2])>1;
end proc:
select(filter, [$1..20000]); # Robert Israel, Oct 24 2023
PROG
(PARI) isok(k) = ispower(k + fromdigits(Vecrev(digits(k)))); \\ Michel Marcus, Oct 24 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Tanmaya Mohanty, Oct 24 2023
EXTENSIONS
More terms from Robert Israel, Oct 24 2023
STATUS
approved