OFFSET
1,2
LINKS
R. Zumkeller, Table of n, a(n) for n = 1..10000
PROG
(Haskell)
import Data.List (isInfixOf)
a138166 n = a138166_list !! (n-1)
a138166_list = filter (\x -> show (a055642 x) `isInfixOf` show x) [0..]
-- Reinhard Zumkeller, Jul 04 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 03 2008
STATUS
approved