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