|
%I #7 Mar 09 2015 09:35:21
%S 0,2,4,6,8,1,1,21,41,61,82,2,22,42,62,83,3,23,43,63,84,4,24,44,64,85,
%T 5,25,45,65,86,6,26,46,66,87,7,27,47,67,88,8,28,48,68,89,9,29,49,69,
%U 81,1,21,41,61,81,101,121,141,161,181,201,221,241,261,281,301,321,341
%N Take list of even numbers, move left digit of each term to end of previous term.
%H Reinhard Zumkeller, <a href="/A032763/b032763.txt">Table of n, a(n) for n = 0..10000</a>
%e Here is how the first few terms are obtained: from 0 2 4 6 8 10 12 14 16 ... we get 0/ 2/ 4/ 6/ 8/ 1/0 1/2 1/4 1/6 ... hence 0,2,4,6,8,1,1,21,41,61,...
%o (Haskell)
%o a032763 n = a032763_list !! n
%o a032763_list = 0 : map read (zipWith (++) vs (tail us)) :: [Integer]
%o where (us,vs) = unzip $ map ((splitAt 1) . show) [0, 2 ..]
%o -- _Reinhard Zumkeller_, Oct 10 2013
%Y Cf. A032759-A032764.
%Y Cf. A005843.
%K nonn,base
%O 0,2
%A _Patrick De Geest_, May 15 1998
|
