login
A032759
Take list of primes, move left digit of each term to end of previous term.
7
2, 3, 5, 7, 1, 11, 31, 71, 92, 32, 93, 13, 74, 14, 34, 75, 35, 96, 16, 77, 17, 37, 98, 38, 99, 71, 11, 31, 71, 91, 131, 271, 311, 371, 391, 491, 511, 571, 631, 671, 731, 791, 811, 911, 931, 971, 992, 112, 232, 272, 292, 332, 392, 412, 512, 572, 632, 692, 712, 772, 812, 832
OFFSET
1,1
LINKS
EXAMPLE
Primes 89,97,101,103,107 become _8,99,71,011,031 or ...,38,99,71,11,31,...
PROG
(Haskell)
a032759 n = a032759_list !! (n-1)
a032759_list = 2 : map read (zipWith (++) vs (tail us)) :: [Integer]
where (us, vs) = unzip $ map ((splitAt 1) . show) a000040_list
-- Reinhard Zumkeller, Oct 10 2013
CROSSREFS
Cf. A000040.
Sequence in context: A171855 A130136 A197124 * A142711 A357096 A093338
KEYWORD
nonn,base,easy,nice
AUTHOR
Patrick De Geest, May 15 1998
EXTENSIONS
Offset changed by Reinhard Zumkeller, Oct 10 2013
STATUS
approved