|
%I #7 Mar 09 2015 09:35:21
%S 0,1,2,3,4,5,6,7,8,9,1,1,11,21,31,41,51,61,71,81,92,2,12,22,32,42,52,
%T 62,72,82,93,3,13,23,33,43,53,63,73,83,94,4,14,24,34,44,54,64,74,84,
%U 95,5,15,25,35,45,55,65,75,85,96,6,16,26,36,46,56,66,76,86,97,7,17,27
%N Take list of integers n >= 0, move left digit of each term to end of previous term.
%H Reinhard Zumkeller, <a href="/A032762/b032762.txt">Table of n, a(n) for n = 0..10000</a>
%e ...,15,16,17,18,19,... -> ...,51,61,71,81,...
%o (Haskell)
%o a032762 n = a032762_list !! n
%o a032762_list = 0 : map read (zipWith (++) vs (tail us)) :: [Integer]
%o where (us,vs) = unzip $ map ((splitAt 1) . show) [0..]
%o -- _Reinhard Zumkeller_, Oct 10 2013
%Y Cf. A032759-A032764.
%K nonn,base,nice
%O 0,3
%A _Patrick De Geest_, May 15 1998
|
