login
A038680
Primes ending in a (different) prime.
2
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
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
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
Missing a(19)=163 added by Jayanta Basu
STATUS
approved