A032760 Take list of squares, move left digit of each term to end of previous term.

0, 1, 4, 9, 1, 62, 53, 64, 96, 48, 11, 1, 211, 441, 691, 962, 252, 562, 893, 243, 614, 4, 414, 845, 295, 766, 256, 767, 297, 848, 419, 9, 611, 241, 891, 1561, 2251, 2961, 3691, 4441, 5211, 6001, 6811, 7641, 8491, 9362, 252, 1162, 2092, 3042, 4012, 5002, 6012

Offset: 1

Author

Patrick De Geest, May 15 1998

Keywords

• nonn
• base

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A032759-A032764.

Cf. A000290.

Programs

Haskell

a032760 n = a032760_list !! n
a032760_list = 0 : map read (zipWith (++) vs (tail us)) :: [Integer]
   where (us,vs) = unzip $ map ((splitAt 1) . show) a000290_list
-- Reinhard Zumkeller, Oct 10 2013