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
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
Missing a(19)=163 added by Jayanta Basu
STATUS
approved