cp's OEIS Frontend

A066825 a(1) = 1; set of digits of a(n)^2 is a subset of the set of digits of a(n+1)^2.

%I A066825 #11 Jul 13 2013 12:02:42
%S A066825 1,4,13,14,31,36,54,96,113,311,487,854,1036,1277,1646,3214,3267,3723,
%T A066825 4047,4554,4896,5376,10136,13147,13268,16549,20513,21877,25279,26152,
%U A066825 27209,28582,31723,32043,32286,33144,35172,35337,35757,35853
%N A066825 a(1) = 1; set of digits of a(n)^2 is a subset of the set of digits of a(n+1)^2.
%C A066825 Probably infinite and dense over Z+.
%H A066825 Reinhard Zumkeller, <a href="/A066825/b066825.txt">Table of n, a(n) for n = 1..10000</a>
%o A066825 (Haskell)
%o A066825 import Data.List ((\\))
%o A066825 a066825 n = a066825_list !! (n-1)
%o A066825 a066825_list = 1 : f 1 (drop 2 a000290_list) where
%o A066825    f x (q:qs) | all (`elem` show q) xs = y : f y qs
%o A066825               | otherwise              = f x qs
%o A066825               where y = a000196 q; xs = show (x * x)
%o A066825 -- _Reinhard Zumkeller_, Nov 22 2012
%Y A066825 Cf. A014563, A067633, A067634, A067635.
%Y A066825 Cf. A000290, A000196.
%K A066825 nonn,base
%O A066825 1,2
%A A066825 _David W. Wilson_, Feb 05 2002