A154812 Primes p such that the smallest decimal digit of p plus the smallest decimal digit of prime(p) is prime.

2, 11, 13, 19, 23, 29, 31, 41, 47, 59, 61, 67, 79, 97, 103, 107, 109, 113, 157, 163, 167, 191, 193, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 331, 337, 367, 373, 379, 383, 389, 401, 419, 433, 439, 443, 449, 461, 463

Offset

1,1

Links

Table of n, a(n) for n=1..55.

Maple

for n from 1 to 300 do p := ithprime(n) ; if isprime( A054054(p) +A054054(ithprime(p)) ) then printf("%d, ", p ) ; end if; end do: # R. J. Mathar, May 05 2010

Mathematica

Select[Prime[Range[100]], PrimeQ[Min[IntegerDigits[#]]+Min[ IntegerDigits[ Prime[ #]]]]&] (* Harvey P. Dale, Jun 22 2019 *)

Crossrefs

Sequence in context: A178796 A068807 A241732 * A038894 A207039 A095743

Adjacent sequences: A154809 A154810 A154811 * A154813 A154814 A154815

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Jan 15 2009

Extensions

Corrected (11, 31, 293, 373 inserted, 457 removed) by R. J. Mathar, May 05 2010

Status

approved