OFFSET
1,1
MATHEMATICA
Select[Prime[Range[500]], PrimeQ[Max[IntegerDigits[#]]+ Last[ IntegerDigits[ #]]]&] (* Harvey P. Dale, Jun 23 2017 *)
CROSSREFS
KEYWORD
nonn,base,easy,less
AUTHOR
Juri-Stepan Gerasimov, Mar 13 2009
STATUS
approved