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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A033664, A010051, A000040.

Sequence in context: A172096 A022893 A211490 * A227916 A158072 A277689

Adjacent sequences: A038677 A038678 A038679 * A038681 A038682 A038683

Keyword

nonn,base,easy

Author

N. J. A. Sloane.

Extensions

Missing a(19)=163 added by Jayanta Basu

Status

approved