OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local i, L, d, y;
if not isprime(n) then return false fi;
L:= convert(n, base, 10);
d:= nops(L);
isprime(add(L[i]^3, i=1..d)) and isprime(add(L[-i]*10^(i-1), i=1..d))
end proc:
select(filter, [seq(i, i=3..10000, 2)]); # Robert Israel, Apr 06 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Carmine Suriano, Sep 03 2010
EXTENSIONS
Keyword:base added and definition shortened by R. J. Mathar, Sep 23 2010
STATUS
approved