login
Take list of even numbers, move left digit of each term to end of previous term.
11

%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