OFFSET
1,1
MAPLE
f:= proc(n) local a, b, c, p;
c:= convert(convert(n, base, 10), `+`);
a:= floor(n/c);
b:= n mod c;
p:= 10^(1+ilog10(b))*a+b;
if isprime(p) then p fi;
end proc:
map(f, [$1..1000]);
CROSSREFS
KEYWORD
nonn,look
AUTHOR
J. M. Bergot and Robert Israel, Jan 18 2021
STATUS
approved