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 11-20 of 33 results. Next

A121029 Multiples of 9 containing a 9 in their decimal representation.

Original entry on oeis.org

9, 90, 99, 189, 198, 279, 297, 369, 396, 459, 495, 549, 594, 639, 693, 729, 792, 819, 891, 900, 909, 918, 927, 936, 945, 954, 963, 972, 981, 990, 999, 1089, 1098, 1179, 1197, 1269, 1296, 1359, 1395, 1449, 1494, 1539, 1593, 1629, 1692, 1719, 1791, 1809
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

Formula

a(n) ~ 9n. - Charles R Greathouse IV, Feb 12 2017

Extensions

Corrected by T. D. Noe, Oct 25 2006
Typo in comment fixed by Reinhard Zumkeller, Aug 13 2010

A121031 Multiples of 11 containing an 11 in their decimal representation.

Original entry on oeis.org

11, 110, 1100, 1111, 1122, 1133, 1144, 1155, 1166, 1177, 1188, 1199, 2112, 2211, 3113, 3311, 4114, 4411, 5115, 5511, 6116, 6611, 7117, 7711, 8118, 8811, 9119, 9911, 11000, 11011, 11022, 11033, 11044, 11055, 11066, 11077, 11088, 11099, 11110
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

  • Mathematica
    Select[11*Range[1100],MemberQ[Partition[IntegerDigits[#],2,1],{1,1}]&] (* Harvey P. Dale, Feb 16 2014 *)
    Select[11Range[1100],SequenceCount[IntegerDigits[#],{1,1}]>0&] (* Harvey P. Dale, Jun 14 2024 *)
  • PARI
    is(n)=if(n%11, return(0)); while(n>10, if(n%100==11, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017

Formula

a(n) ~ 11n. - Charles R Greathouse IV, Feb 12 2017

A121033 Multiples of 13 containing a 13 in their decimal representation.

Original entry on oeis.org

13, 130, 1131, 1300, 1313, 1326, 1339, 1352, 1365, 1378, 1391, 2132, 2613, 3133, 3913, 4134, 5135, 5213, 6136, 6513, 7137, 7813, 8138, 9113, 9139, 10413, 11310, 11323, 11336, 11349, 11362, 11375, 11388, 11713, 13000, 13013, 13026, 13039
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

  • Mathematica
    Select[13*Range[2000], StringContainsQ[IntegerString[#], "13"] &] (* Paolo Xausa, Feb 25 2024 *)
  • PARI
    is(n)=if(n%13, return(0)); while(n>12, if(n%100==13, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017

Extensions

Corrected by T. D. Noe, Oct 25 2006

A121034 Multiples of 14 containing a 14 in their decimal representation.

Original entry on oeis.org

14, 140, 714, 1148, 1400, 1414, 1428, 1442, 1456, 1470, 1484, 1498, 2114, 2142, 2814, 3514, 4144, 4214, 4914, 5614, 6146, 6314, 7014, 7140, 7714, 8148, 8414, 9114, 9142, 9814, 10514, 11144, 11214, 11410, 11424, 11438, 11452, 11466, 11480, 11494
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

  • Mathematica
    Select[14*Range[2000], StringContainsQ[IntegerString[#], "14"] &] (* Paolo Xausa, Feb 25 2024 *)
  • PARI
    is(n)=if(n%14, return(0)); while(n>13, if(n%100==14, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017

Formula

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

Extensions

Corrected by T. D. Noe, Oct 25 2006

A121035 Multiples of 15 containing a 15 in their decimal representation.

Original entry on oeis.org

15, 150, 315, 615, 915, 1155, 1215, 1500, 1515, 1530, 1545, 1560, 1575, 1590, 1815, 2115, 2415, 2715, 3015, 3150, 3315, 3615, 3915, 4155, 4215, 4515, 4815, 5115, 5415, 5715, 6015, 6150, 6315, 6615, 6915, 7155, 7215, 7515, 7815, 8115, 8415, 8715, 9015
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006, Jul 26 2006

Keywords

Crossrefs

Programs

  • Mathematica
    Select[15*Range[1000], StringContainsQ[IntegerString[#], "15"] &] (* Paolo Xausa, Feb 25 2024 *)
  • PARI
    is(n)=if(n%15, return(0)); while(n>14, if(n%100==15, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017

Formula

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

A121036 Multiples of 16 containing a 16 in their decimal representation.

Original entry on oeis.org

16, 160, 416, 816, 1168, 1216, 1600, 1616, 1632, 1648, 1664, 1680, 1696, 2016, 2160, 2416, 2816, 3168, 3216, 3616, 4016, 4160, 4416, 4816, 5168, 5216, 5616, 6016, 6160, 6416, 6816, 7168, 7216, 7616, 8016, 8160, 8416, 8816, 9168, 9216, 9616, 10016
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

  • Mathematica
    seqMemberQ[lst_,seq_]:=MemberQ[Partition[lst,Length[seq],1],seq]
    m16Q[n_]:=seqMemberQ[IntegerDigits[n],{1,6}]
    Select[16Range[1000],m16Q]  (* Harvey P. Dale, Feb 26 2011 *)
    Select[16Range[1000],SequenceCount[IntegerDigits[#],{1,6}]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Apr 12 2016 *)
  • PARI
    is(n)=if(n%16,return(0));n=eval(Vec(Str(n)));for(i=2,#n,if(n[i]==6&&n[i-1]==1,return(1)));0

Formula

a(n) ~ 16n. - Charles R Greathouse IV, Jul 16 2011

Extensions

Corrected by Harvey P. Dale, Feb 26 2011

A121037 Multiples of 17 containing a 17 in their decimal representation.

Original entry on oeis.org

17, 170, 1173, 1700, 1717, 1734, 1751, 1768, 1785, 2176, 3179, 3417, 5117, 6171, 6817, 7174, 8177, 8517, 10217, 11713, 11730, 11747, 11764, 11781, 11798, 11917, 12172, 13175, 13617, 14178, 15317, 17000, 17017, 17034, 17051, 17068, 17085
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

  • Mathematica
    Select[17*Range[2000], StringContainsQ[IntegerString[#], "17"] &] (* Paolo Xausa, Feb 25 2024 *)
  • PARI
    is(n)=if(n%17, return(0)); while(n>16, if(n%100==17, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017

Formula

a(n) ~ 17n. - Charles R Greathouse IV, Feb 12 2017

Extensions

Corrected by T. D. Noe, Oct 25 2006

A121038 Multiples of 18 containing a 18 in their decimal representation.

Original entry on oeis.org

18, 180, 918, 1188, 1800, 1818, 1836, 1854, 1872, 1890, 2718, 3186, 3618, 4518, 5184, 5418, 6318, 7182, 7218, 8118, 9018, 9180, 9918, 10188, 10818, 11718, 11808, 11826, 11844, 11862, 11880, 11898, 12186, 12618, 13518, 14184, 14418, 15318, 16182
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

  • Mathematica
    Select[18*Range[1000],SequenceCount[IntegerDigits[#],{1,8}]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, May 01 2016 *)
  • PARI
    is(n)=if(n%18, return(0)); while(n>17, if(n%100==18, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017

Formula

a(n) ~ 18n. - Charles R Greathouse IV, Feb 12 2017

Extensions

Corrected by T. D. Noe, Oct 25 2006

A121026 Multiples of 6 containing a 6 in their decimal representation.

Original entry on oeis.org

6, 36, 60, 66, 96, 126, 156, 162, 168, 186, 216, 246, 264, 276, 306, 336, 360, 366, 396, 426, 456, 462, 468, 486, 516, 546, 564, 576, 600, 606, 612, 618, 624, 630, 636, 642, 648, 654, 660, 666, 672, 678, 684, 690, 696, 726, 756, 762, 768, 786, 816, 846, 864
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

Formula

a(n) ~ 6n. - Charles R Greathouse IV, Feb 12 2017

Extensions

Corrected by T. D. Noe, Oct 25 2006
Typo in comment fixed by Reinhard Zumkeller, May 01 2011

A121039 Multiples of 19 containing a 19 in their decimal representation.

Original entry on oeis.org

19, 190, 1197, 1900, 1919, 1938, 1957, 1976, 1995, 3192, 3819, 4199, 5719, 6194, 7619, 9196, 9519, 11191, 11419, 11913, 11932, 11951, 11970, 11989, 12198, 13319, 14193, 15219, 17119, 17195, 19000, 19019, 19038, 19057, 19076, 19095, 19114
Offset: 1

Views

Author

Reinhard Zumkeller, Jul 21 2006

Keywords

Crossrefs

Programs

  • Mathematica
    Select[19*Range[1500],MemberQ[Partition[IntegerDigits[#],2,1],{1,9}]&] (* Harvey P. Dale, Jun 08 2014 *)
  • PARI
    is(n)=if(n%19, return(0)); while(n>18, if(n%100==19, return(1)); n\=10); 0 \\ Charles R Greathouse IV, Feb 12 2017

Formula

a(n) ~ 19n. - Charles R Greathouse IV, Feb 12 2017

Extensions

Corrected by T. D. Noe, Oct 25 2006
Previous Showing 11-20 of 33 results. Next