OFFSET
1,2
COMMENTS
Probably infinite and dense over Z+.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
PROG
(Haskell)
import Data.List ((\\))
a066825 n = a066825_list !! (n-1)
a066825_list = 1 : f 1 (drop 2 a000290_list) where
f x (q:qs) | all (`elem` show q) xs = y : f y qs
| otherwise = f x qs
where y = a000196 q; xs = show (x * x)
-- Reinhard Zumkeller, Nov 22 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
David W. Wilson, Feb 05 2002
STATUS
approved