cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-5 of 5 results.

A032763 Take list of even numbers, move left digit of each term to end of previous term.

Original entry on oeis.org

0, 2, 4, 6, 8, 1, 1, 21, 41, 61, 82, 2, 22, 42, 62, 83, 3, 23, 43, 63, 84, 4, 24, 44, 64, 85, 5, 25, 45, 65, 86, 6, 26, 46, 66, 87, 7, 27, 47, 67, 88, 8, 28, 48, 68, 89, 9, 29, 49, 69, 81, 1, 21, 41, 61, 81, 101, 121, 141, 161, 181, 201, 221, 241, 261, 281, 301, 321, 341
Offset: 0

Views

Author

Patrick De Geest, May 15 1998

Keywords

Examples

			Here is how the first few terms are obtained: from 0 2 4 6 8 10 12 14 16 ... we get 0/ 2/ 4/ 6/ 8/ 1/0 1/2 1/4 1/6 ... hence 0,2,4,6,8,1,1,21,41,61,...
		

Crossrefs

Programs

  • Haskell
    a032763 n = a032763_list !! n
    a032763_list = 0 : map read (zipWith (++) vs (tail us)) :: [Integer]
       where (us,vs) = unzip $ map ((splitAt 1) . show) [0, 2 ..]
    -- Reinhard Zumkeller, Oct 10 2013

A032759 Take list of primes, move left digit of each term to end of previous term.

Original entry on oeis.org

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

Views

Author

Patrick De Geest, May 15 1998

Keywords

Examples

			Primes 89,97,101,103,107 become _8,99,71,011,031 or ...,38,99,71,11,31,...
		

Crossrefs

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

A032762 Take list of integers n >= 0, move left digit of each term to end of previous term.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 1, 11, 21, 31, 41, 51, 61, 71, 81, 92, 2, 12, 22, 32, 42, 52, 62, 72, 82, 93, 3, 13, 23, 33, 43, 53, 63, 73, 83, 94, 4, 14, 24, 34, 44, 54, 64, 74, 84, 95, 5, 15, 25, 35, 45, 55, 65, 75, 85, 96, 6, 16, 26, 36, 46, 56, 66, 76, 86, 97, 7, 17, 27
Offset: 0

Views

Author

Patrick De Geest, May 15 1998

Keywords

Examples

			...,15,16,17,18,19,... -> ...,51,61,71,81,...
		

Crossrefs

Programs

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

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

Original entry on oeis.org

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

Views

Author

Patrick De Geest, May 15 1998

Keywords

Crossrefs

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

A032761 Take list of cubes, move left digit of each term to end of previous term.

Original entry on oeis.org

0, 1, 8, 2, 76, 41, 252, 163, 435, 127, 291, 1, 3311, 7282, 1972, 7443, 3754, 964, 9135, 8326, 8598, 9, 2611, 6481, 21671, 38241, 56251, 75761, 96832, 19522, 43892, 70002, 97913, 27683, 59373, 93044, 28754, 66565, 6535, 48725, 93196, 40006, 89217, 40887
Offset: 0

Views

Author

Patrick De Geest, May 15 1998

Keywords

Crossrefs

Programs

  • Haskell
    a032761 n = a032761_list !! n
    a032761_list = 0 : map read (zipWith (++) vs (tail us)) :: [Integer]
       where (us,vs) = unzip $ map ((splitAt 1) . show) a000578_list
    -- Reinhard Zumkeller, Oct 10 2013
Showing 1-5 of 5 results.