|
%I #8 Sep 23 2021 19:44:29
%S 11,13,17,19,41,43,61,83,113,127,131,137,139,149,151,157,163,167,173,
%T 179,181,191,193,197,199,211,241,251,271,281,307,419,421,431,433,439,
%U 443,461,463,491,503,509,523,613,617,619,631,641,659,661,691,701,709
%N Primes such that sum of first digit and smallest digit is a prime.
%C The first digit and the smallest digit may be the same digit. - _Harvey P. Dale_, Sep 23 2021
%H Harvey P. Dale, <a href="/A157175/b157175.txt">Table of n, a(n) for n = 1..2000</a>
%e 11(1+1=2=prime), 13(1+1=2=prime), 17(1+1=2=prime), 19(1+1=2=prime), 41(4+1=5=prime), 43(4+3=7=prime), etc.
%t Select[Prime[Range[150]],PrimeQ[Min[IntegerDigits[#]]+IntegerDigits[#][[1]]]&] (* _Harvey P. Dale_, Sep 23 2021 *)
%Y Cf. A000040.
%K nonn,base,less
%O 1,1
%A _Juri-Stepan Gerasimov_, Feb 24 2009
%E 197 and 241 inserted by _R. J. Mathar_, Feb 26 2009
|
