A032761 Take list of cubes, move left digit of each term to end of previous term.
0, 1, 8, 2, 76, 41, 252, 163, 435, 127, 291, 1, 3311, 7282, 1972, 7443, 3754, 964, 9135, 8326, 8598, 9, 2611, 6481, 21671, 38241, 56251, 75761, 96832, 19522, 43892, 70002, 97913, 27683, 59373, 93044, 28754, 66565, 6535, 48725, 93196, 40006, 89217, 40887
Offset: 0
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Programs
-
Haskell
a032761 n = a032761_list !! n a032761_list = 0 : map read (zipWith (++) vs (tail us)) :: [Integer] where (us,vs) = unzip $ map ((splitAt 1) . show) a000578_list -- Reinhard Zumkeller, Oct 10 2013