OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
101 yields only one prime using digit '6' -> 1(6)0(6)1 -> prime 16061.
MATHEMATICA
aQ[n_]:=Plus@@Boole[PrimeQ[Table[FromDigits[Riffle[IntegerDigits[n], k]], {k, 0, 9}]]]==1; Select[Prime[Range[5, 555]], aQ[#]&] (* Jayanta Basu, May 30 2013 *)
PROG
(Haskell)
import Data.List (intersperse)
a050806 n = a050806_list !! (n-1)
a050806_list = filter ((== 1) . sum . f) a000040_list where
f p = map (i $ show p) "0123456789"
i ps d = a010051' (read $ intersperse d ps :: Integer)
-- Reinhard Zumkeller, May 07 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Oct 15 1999
EXTENSIONS
Offset corrected by Reinhard Zumkeller, May 07 2013
STATUS
approved