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

A048399 Primes with consecutive digits that differ exactly by 2.

Original entry on oeis.org

2, 3, 5, 7, 13, 31, 53, 79, 97, 131, 313, 353, 757, 797, 31357, 35353, 35753, 35797, 75353, 75797, 79757, 97579, 131357, 135353, 135757, 353531, 531353, 535757, 575753, 579757, 757579, 797579, 975313, 975797, 979757, 1313579, 3131353
Offset: 1

Views

Author

Patrick De Geest, Apr 15 1999

Keywords

Links

Crossrefs

Cf. A033088, A048398, A048400, A048401, A048402, A048403, A048404, A048405.

Programs

  • Mathematica
    Join[{2,3,5,7},Select[Prime[Range[230000]],Union[Abs[ Differences[ IntegerDigits[ #]]]]=={2}&]] (* Harvey P. Dale, Nov 03 2013 *)

A048410 Numbers whose consecutive digits differ by 8.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 19, 80, 91, 191, 808, 919, 1919, 8080, 9191, 19191, 80808, 91919, 191919, 808080, 919191, 1919191, 8080808, 9191919, 19191919, 80808080, 91919191, 191919191, 808080808, 919191919, 1919191919, 8080808080
Offset: 0

Views

Author

Patrick De Geest, Apr 15 1999

Keywords

Crossrefs

Cf. A033075, A033088, A033081, A048407-A048409.

Programs

  • Mathematica
    With[{nn=10},Join[Range[0,9],Table[FromDigits[PadRight[{},n,{1,9}]],{n,nn}], Table[FromDigits[PadRight[{},m,{9,1}]],{m,nn}],Table[ FromDigits[ PadRight[ {},k,{8,0}]],{k,nn}]]]//Union (* Harvey P. Dale, Jul 17 2017 *)

A048407 Numbers whose consecutive digits differ by 5.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 27, 38, 49, 50, 61, 72, 83, 94, 161, 272, 383, 494, 505, 616, 727, 838, 949, 1616, 2727, 3838, 4949, 5050, 6161, 7272, 8383, 9494, 16161, 27272, 38383, 49494, 50505, 61616, 72727, 83838, 94949, 161616, 272727, 383838
Offset: 0

Views

Author

Patrick De Geest, Apr 15 1999

Keywords

Crossrefs

Cf. A033075, A033088, A033081, A048406-A048410.

Programs

  • Mathematica
    Join[Range[0,9],Select[Range[400000],Union[Abs[Differences[ IntegerDigits[ #]]]] == {5}&]] (* Harvey P. Dale, Sep 23 2013 *)

A048406 Numbers whose consecutive digits differ by 4.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 15, 26, 37, 40, 48, 51, 59, 62, 73, 84, 95, 151, 159, 262, 373, 404, 484, 515, 595, 626, 737, 840, 848, 951, 959, 1515, 1595, 2626, 3737, 4040, 4048, 4840, 4848, 5151, 5159, 5951, 5959, 6262, 7373, 8404, 8484, 9515, 9595, 15151
Offset: 0

Views

Author

Patrick De Geest, Apr 15 1999

Keywords

Crossrefs

Cf. A033075, A033088, A033081, A048407-A048410.

A048409 Numbers whose consecutive digits differ by 7.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 18, 29, 70, 81, 92, 181, 292, 707, 818, 929, 1818, 2929, 7070, 8181, 9292, 18181, 29292, 70707, 81818, 92929, 181818, 292929, 707070, 818181, 929292, 1818181, 2929292, 7070707, 8181818, 9292929, 18181818, 29292929
Offset: 0

Views

Author

Patrick De Geest, Apr 15 1999

Keywords

Crossrefs

Cf. A033075, A033088, A033081, A048407-A048410.

A048408 Numbers whose consecutive digits differ by 6.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 17, 28, 39, 60, 71, 82, 93, 171, 282, 393, 606, 717, 828, 939, 1717, 2828, 3939, 6060, 7171, 8282, 9393, 17171, 28282, 39393, 60606, 71717, 82828, 93939, 171717, 282828, 393939, 606060, 717171, 828282, 939393, 1717171
Offset: 0

Views

Author

Patrick De Geest, Apr 15 1999

Keywords

Crossrefs

Cf. A033075, A033088, A033081, A048407-A048410.

A198486 Numbers with the property that all pairs of consecutive digits differ by 9.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 90, 909, 9090, 90909, 909090, 9090909, 90909090, 909090909, 9090909090, 90909090909, 909090909090, 9090909090909, 90909090909090, 909090909090909, 9090909090909090, 90909090909090909, 909090909090909090, 9090909090909090909
Offset: 1

Views

Author

Pieter Stadhouders, Oct 20 2013

Keywords

Links

Crossrefs

Cf. A033075, A033088, A033081, A048406-A048410.

Programs

  • Mathematica
    t = {1, 2, 3, 4, 5, 6, 7, 8, 9}; Do[AppendTo[t, 10*t[[-1]]]; AppendTo[t, 10*t[[-1]] + 9], {9}]; t (* T. D. Noe, Oct 22 2013 *)
  • Python
    def A198486():
    print('Numbers whose consecutive digits differ by 9')
    for i in range(1, 100001):
        b, n = True, i
        if n > 9:
            while n > 9:
                a = abs((n // 10) % 10 - n % 10)
                if a != 9: b = False
                n = n // 10
        if b: print(i, end=', ')
    return

Extensions

More terms from T. D. Noe, Oct 22 2013
Showing 1-7 of 7 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.