A032759 Take list of primes, move left digit of each term to end of previous term.
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
Examples
Primes 89,97,101,103,107 become _8,99,71,011,031 or ...,38,99,71,11,31,...
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
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
Extensions
Offset changed by Reinhard Zumkeller, Oct 10 2013