OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
40309, 41319, 42327, 43339, 44349, 45359, 46369, 47379, 48389, and 49399 are all composite. Thus, 439, being prime, belongs to the sequence.
MATHEMATICA
a[n_]:=Or@@PrimeQ[Table[FromDigits[Riffle[IntegerDigits[n], k]], {k, 0, 9}]]; Select[Prime[Range[5, 350]], a[#]==False&] (* Jayanta Basu, May 30 2013 *)
Select[Prime[Range[400]], NoneTrue[Table[FromDigits[Riffle[ IntegerDigits[ #], d]], {d, 0, 9}], PrimeQ]&] (* Harvey P. Dale, Aug 04 2021 *)
PROG
(Haskell)
import Data.List (intersperse)
a050805 n = a050805_list !! (n-1)
a050805_list = filter ((all (== 0)) . 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,nice,base
AUTHOR
Patrick De Geest, Oct 15 1999
EXTENSIONS
Offset corrected by Reinhard Zumkeller, May 07 2013
STATUS
approved