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-3 of 3 results.

A261334 Inverse permutation to A261333.

Original entry on oeis.org

10, 0, 1, 2, 3, 4, 5, 6, 7, 8, 30, 9, 14, 16, 18, 20, 22, 24, 26, 28, 50, 11, 29, 36, 38, 40, 42, 44, 46, 48, 70, 12, 31, 49, 58, 60, 62, 64, 66, 68, 90, 13, 33, 51, 69, 80, 82, 84, 86, 88, 110, 15, 34, 53, 71, 89, 102, 104, 106, 108, 130, 17, 35, 55, 73, 91
Offset: 0

Views

Author

Reinhard Zumkeller, Aug 15 2015

Keywords

Crossrefs

Cf. A261333 (inverse), A261335 (fixed points), A065650.

Programs

  • Haskell
    import Data.List (elemIndex); import Data.Maybe (fromJust)
    a261334 = fromJust . (`elemIndex` a261333_list)

A261335 Fixed points of permutations A261333, A261334.

Original entry on oeis.org

53, 334, 522, 1194, 2869, 3036, 20825, 29757, 38649, 42376, 206634, 779484, 2501844, 3179745, 6144896, 7489482, 71814716, 74518733, 114518733, 427670705, 821804556, 826199354, 851684546, 1276199354, 4825184535, 9444444445, 9592618243, 14592618243, 592213913815
Offset: 1

Views

Author

Reinhard Zumkeller, Aug 15 2015

Keywords

Crossrefs

Programs

  • Haskell
    a261335 n = a261335_list !! (n-1)
    a261335_list = [x | x <- [0..], a261333 x == x]

Extensions

a(13)-a(29) from Hiroaki Yamanouchi, Aug 21 2015

A065649 Permutation of nonnegative integers based on Champernowne's constant 0.123456789101112131415...

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 10, 21, 31, 41, 12, 51, 13, 61, 14, 71, 15, 81, 16, 91, 17, 101, 18, 111, 19, 22, 20, 32, 121, 42, 52, 62, 23, 72, 24, 82, 25, 92, 26, 102, 27, 112, 28, 122, 29, 33, 30, 43, 131, 53, 132, 63, 73, 83, 34, 93, 35, 103, 36, 113, 37, 123, 38
Offset: 0

Views

Author

Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Nov 09 2001

Keywords

Comments

A261293(n) = a(a(n)). - Reinhard Zumkeller, Aug 14 2015

Crossrefs

Cf. A261279 (fixed points), A261293, A261333.

Programs

  • Haskell
    a065649 n = a065649_list !! n
    a065649_list = zipWith (+)
                   (map ((* 10) . subtract 1) a065648_list) (0 : a033307_list)
    -- Reinhard Zumkeller, Aug 13 2015

Formula

a(n) = if n = 0 then 0 else 10*(A065648(n)-1) + A033307(n-1).

Extensions

Offset and defining formula adjusted by Reinhard Zumkeller, Aug 13 2015
Showing 1-3 of 3 results.