|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|