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.

Previous Showing 31-34 of 34 results.

A293879 Numbers having '19' as substring of their digits.

Original entry on oeis.org

19, 119, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 219, 319, 419, 519, 619, 719, 819, 919, 1019, 1119, 1190, 1191, 1192, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1219, 1319, 1419, 1519, 1619, 1719, 1819, 1900, 1901, 1902, 1903, 1904, 1905, 1906, 1907, 1908, 1909, 1910, 1911
Offset: 1

Views

Author

M. F. Hasler, Oct 18 2017

Keywords

Comments

Row 19 of A292690 and A293869. A121039 lists the terms which are divisible by 19.

Crossrefs

Cf. A121041, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121035, A121036, A121037, A121038, A121039, A121040: subsequences of the above, containing only multiples of the pattern p.

Programs

  • Mathematica
    Select[Range[2000],SequenceCount[IntegerDigits[#],{1,9}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 11 2019 *)
  • PARI
    is_A293879 = has(n, p=19, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))

Formula

a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022

A293873 Numbers having '13' as substring of their digits.

Original entry on oeis.org

13, 113, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 213, 313, 413, 513, 613, 713, 813, 913, 1013, 1113, 1130, 1131, 1132, 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1213, 1300, 1301, 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 1313, 1314, 1315
Offset: 1

Views

Author

M. F. Hasler, Oct 18 2017

Keywords

Comments

Row 13 of A292690 and A293869. A121033 is the subsequence of multiples of 13.

Crossrefs

Cf. A121041, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121035, A121036, A121037, A121038, A121039, A121040: subsequences of the above, containing only multiples of the pattern p.

Programs

  • Mathematica
    Select[Range[1350],SequenceCount[IntegerDigits[#],{1,3}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 31 2017 *)
  • PARI
    is_A293873 = has(n, p=13, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))

Formula

a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022

A293880 Numbers having '20' as substring of their digits.

Original entry on oeis.org

20, 120, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 220, 320, 420, 520, 620, 720, 820, 920, 1020, 1120, 1200, 1201, 1202, 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1220, 1320, 1420, 1520, 1620, 1720, 1820, 1920, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
Offset: 1

Views

Author

M. F. Hasler, Oct 18 2017

Keywords

Comments

Row 20 of A292690 and A293869. A121040 lists the terms which are divisible by 19.

Crossrefs

Cf. A121041, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121035, A121036, A121037, A121038, A121039, A121040: subsequences of the above, containing only multiples of the pattern p.

Programs

  • Mathematica
    Select[Range[2100],SequenceCount[IntegerDigits[#],{2,0}]>0&] (* Harvey P. Dale, Jul 25 2021 *)
  • PARI
    is_A293880 = has(n, p=20, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))

Formula

a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022

A277592 Numbers k such that k/10^m == 5 mod 10, where 10^m is the greatest power of 10 that divides n.

Original entry on oeis.org

5, 15, 25, 35, 45, 50, 55, 65, 75, 85, 95, 105, 115, 125, 135, 145, 150, 155, 165, 175, 185, 195, 205, 215, 225, 235, 245, 250, 255, 265, 275, 285, 295, 305, 315, 325, 335, 345, 350, 355, 365, 375, 385, 395, 405, 415, 425, 435, 445, 450, 455, 465, 475, 485
Offset: 1

Views

Author

Clark Kimberling, Nov 05 2016

Keywords

Comments

Positions of 5 in A065881.
Numbers having 5 as rightmost nonzero digit in base 10. This is one sequence in a 10-way splitting of the positive integers; the other nine are indicated in the Mathematica program.
This sequence differs from A121025, which includes 540.

Crossrefs

Programs

  • Mathematica
    z = 460; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}]
    p[b_, d_] := Flatten[Position[a[b], d]]
    p[10, 1] (* A277588 *)
    p[10, 2] (* A277589 *)
    p[10, 3] (* A277590 *)
    p[10, 4] (* A277591 *)
    p[10, 5] (* A277592 *)
    p[10, 6] (* A277593 *)
    p[10, 7] (* A277594 *)
    p[10, 8] (* A277595 *)
    p[10, 9] (* A277596 *)
Previous Showing 31-34 of 34 results.