OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= n -> n + convert(convert(n, base, 10), `+`):
filter:= proc(n) local x;
if not isprime(n) then return false fi;
x:= f(n);
isprime(x) and isprime(f(x))
end proc:
select(filter, [seq(i, i=3..10000, 2)]); # Robert Israel, Dec 17 2020
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Nov 06 2018
STATUS
approved