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,3

Links

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

Prog

(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

Crossrefs

Cf. A032759-A032764.

Cf. A000290.

Sequence in context: A055491 A032523 A350623 * A129970 A006830 A238592

Adjacent sequences: A032757 A032758 A032759 * A032761 A032762 A032763

Keyword

nonn,base

Author

Patrick De Geest, May 15 1998

Status

approved