login
A154812
Primes p such that the smallest decimal digit of p plus the smallest decimal digit of prime(p) is prime.
0
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
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
KEYWORD
nonn,base,less
AUTHOR
EXTENSIONS
Corrected (11, 31, 293, 373 inserted, 457 removed) by R. J. Mathar, May 05 2010
STATUS
approved