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.

A261793 Successively add the smallest number that is not a substring in decimal representation.

Original entry on oeis.org

1, 3, 4, 5, 6, 7, 8, 9, 10, 12, 15, 17, 19, 21, 24, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 53, 54, 55, 56, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 80, 81
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 01 2015

Keywords

Crossrefs

Cf. A031298, A261794, A261795 (first differences), A261806, A260273, A261786

Programs

  • Haskell
    a261793 n = a261793_list !! (n-1)
    a261793_list = iterate (\x -> x + a261794 x) 1

A261789 First differences of A261786.

Original entry on oeis.org

2, 2, 3, 1, 2, 4, 3, 1, 3, 3, 3, 2, 2, 4, 2, 5, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 1, 4, 3, 2, 2, 4, 2, 4, 4, 4, 4, 2, 5, 5, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 4, 3, 3, 3, 3, 4, 3, 3, 1, 4, 3, 4, 4, 5, 3, 3, 3, 3, 3, 1, 4, 3, 4, 3, 3, 1, 4, 3, 2, 2, 4, 2, 4, 4
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 01 2015

Keywords

Comments

a(n) = A261787(A261786(n)).

Crossrefs

Programs

  • Haskell
    a261789 n = a261789_list !! (n-1)
    a261789_list = zipWith (-) (tail a261786_list') a261786_list'

A261794 a(n) is the smallest nonzero number that is not a substring of n in decimal representation.

Original entry on oeis.org

1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1
Offset: 0

Views

Author

Reinhard Zumkeller, Sep 01 2015

Keywords

Comments

A261795(n) = a(A261793(n)).

Crossrefs

Programs

  • Haskell
    import Data.List (isInfixOf)
    a261794 x = f $ tail a031298_tabf where
       f (cs:css) = if isInfixOf cs (a031298_row x)
                       then f css else foldr (\d v -> 10 * v + d) 0 cs

Extensions

Name corrected by Álvar Ibeas, Sep 08 2020
Showing 1-3 of 3 results.