OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..2700
MATHEMATICA
t = {}; eList = {}; p = 7; While[Length[t] < 1000, p = NextPrime[p]; e = FromDigits[Rest[IntegerDigits[p]]]; If[! PrimeQ[e] && ! MemberQ[eList, e], AppendTo[t, p]; AppendTo[eList, e]]]; eList
PROG
(Haskell)
a238333 n = a238333_list !! (n-1)
a238333_list = f [] $ drop 4 a000040_list where
f xs (p:ps) | a010051 t == 1 || t `elem` xs = f xs ps
| otherwise = t : f (t:xs) ps
where t = read $ tail $ show p
-- Reinhard Zumkeller, Feb 28 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Feb 28 2014
STATUS
approved