A158201 - OEIS

%I #10 Jun 23 2017 15:01:19

%S 11,41,43,61,83,101,211,241,283,383,401,421,431,433,443,461,601,631,

%T 641,661,683,823,853,863,883,1021,1061,1201,1283,1361,1423,1433,1483,

%U 1583,1601,1621,1783,1823,1873,2011,2083,2111,2141,2143,2161,2221,2243,2341

%N Primes with sum of largest digit and final digit is a prime.

%t Select[Prime[Range[500]],PrimeQ[Max[IntegerDigits[#]]+ Last[ IntegerDigits[ #]]]&] (* _Harvey P. Dale_, Jun 23 2017 *)

%Y Cf. A000040, A157173.

%K nonn,base,easy,less

%O 1,1

%A _Juri-Stepan Gerasimov_, Mar 13 2009