A038680 Primes ending in a (different) prime.

13, 17, 23, 37, 43, 47, 53, 67, 73, 83, 97, 103, 107, 113, 127, 131, 137, 157, 163, 167, 173, 179, 193, 197, 211, 223, 227, 229, 233, 241, 257, 263, 271, 277, 283, 293, 307, 311, 313, 317, 331, 337, 347, 353, 359, 367, 373, 379, 383, 389, 397

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• base
• easy

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A033664, A010051, A000040.

Programs

Haskell

import Data.List (tails)
a038680 n = a038680_list !! (n-1)
a038680_list = filter (any ((== 1) . a010051. read) .
                           init . tail . tails . show) a000040_list
-- Reinhard Zumkeller, Jul 10 2013

Mathematica

ds[n_] := NestWhileList[FromDigits[Rest[IntegerDigits[#]]] &, n, # > 9 &]; Select[Prime[Range[5, 80]], Or @@ PrimeQ /@ Rest[ds[#]] &] (* Jayanta Basu, Jul 10 2013 *)

Extensions

Missing a(19)=163 added by Jayanta Basu