OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..8500
EXAMPLE
a(6)= 337 is emirp. Sum of digits= 3+3+7= 13 which is prime.
a(11)= 937 is emirp. Sum of digits= 9+3+7= 19 which is prime.
MAPLE
with(StringTools):KD:= proc() local a, b, d; a:=ithprime(n); b:=parse(Reverse(convert(a, string))); d:=add( i, i = convert((a), base, 10))(a); if a<>b and isprime(b) and isprime(d) then return(a):fi; end: seq(KD(), n=1..2000);
MATHEMATICA
Select[Prime[Range[500]], !PalindromeQ[#]&&AllTrue[{IntegerReverse[#], Total[ IntegerDigits[ #]]}, PrimeQ]&] (* Harvey P. Dale, Nov 01 2022 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
K. D. Bajpai, Oct 14 2013
STATUS
approved