OFFSET
1,1
COMMENTS
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..7791
MATHEMATICA
Select[Prime@ Range[9000, 10^6], And[# == Reverse@ #, Total@ # == 40] &@ IntegerDigits@ # &] (* Michael De Vlieger, Dec 18 2015 *)
PROG
(PARI) isok(n) = isprime(n) && (d=digits(n)) && (Vecrev(d)==d) && (sumdigits(n)==40); \\ Michel Marcus, Dec 18 2015
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 22 2005
STATUS
approved