login
A032761
Take list of cubes, move left digit of each term to end of previous term.
1
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,3
LINKS
PROG
(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
CROSSREFS
Cf. A000578.
Sequence in context: A202625 A038280 A260039 * A262896 A188898 A176860
KEYWORD
nonn,base,look
AUTHOR
Patrick De Geest, May 15 1998
STATUS
approved