|
%I #9 Mar 09 2015 09:35:21
%S 1,3,5,7,9,1,11,31,51,71,92,12,32,52,72,93,13,33,53,73,94,14,34,54,74,
%T 95,15,35,55,75,96,16,36,56,76,97,17,37,57,77,98,18,38,58,78,99,19,39,
%U 59,79,91,11,31,51,71,91,111,131,151,171,191,211,231,251,271,291,311
%N Take list of odd numbers, move left digit of each term to end of previous term.
%H Reinhard Zumkeller, <a href="/A032764/b032764.txt">Table of n, a(n) for n = 0..10000</a>
%o (Haskell)
%o a032764 n = a032764_list !! n
%o a032764_list = 1 : map read (zipWith (++) vs (tail us)) :: [Integer]
%o where (us,vs) = unzip $ map ((splitAt 1) . show) [1, 3 ..]
%o -- _Reinhard Zumkeller_, Oct 10 2013
%Y Cf. A032759-A032762.
%Y Cf. A005408.
%K nonn,easy,base,look
%O 0,2
%A _Patrick De Geest_, May 15 1998
|
