OFFSET
0,3
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
PROG
(Haskell)
import Data.List (isInfixOf)
a211396 n = if null ips then 0 else head ips
where ips = [p | p <- takeWhile (<= n) a000040_list,
show p `isInfixOf` show n]
CROSSREFS
KEYWORD
AUTHOR
Reinhard Zumkeller, Feb 08 2013
STATUS
approved