|
%I #8 Mar 09 2015 09:35:21
%S 0,1,4,9,1,62,53,64,96,48,11,1,211,441,691,962,252,562,893,243,614,4,
%T 414,845,295,766,256,767,297,848,419,9,611,241,891,1561,2251,2961,
%U 3691,4441,5211,6001,6811,7641,8491,9362,252,1162,2092,3042,4012,5002,6012
%N Take list of squares, move left digit of each term to end of previous term.
%H Reinhard Zumkeller, <a href="/A032760/b032760.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o a032760 n = a032760_list !! n
%o a032760_list = 0 : map read (zipWith (++) vs (tail us)) :: [Integer]
%o where (us,vs) = unzip $ map ((splitAt 1) . show) a000290_list
%o -- _Reinhard Zumkeller_, Oct 10 2013
%Y Cf. A032759-A032764.
%Y Cf. A000290.
%K nonn,base
%O 1,3
%A _Patrick De Geest_, May 15 1998
|
