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.

A092451 Numbers that either contain the digit 2 or are divisible by 2.

Original entry on oeis.org

0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 121
Offset: 0

Views

Author

N. J. A. Sloane, Mar 24 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Range[0,140],DigitCount[#,10,2]>0||Divisible[ #,2]&] (* Harvey P. Dale, Jun 28 2011 *)
    Select[Range[0, 300], Mod[#, 2] == 0||MemberQ[IntegerDigits[#], 2] &] (* Vincenzo Librandi, Jul 19 2016 *)
  • PARI
    isok(n) = !(n % 2) || vecsearch(vecsort(digits(n,2),,8),2); \\ Michel Marcus, Jul 19 2016

Extensions

More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004

A092457 Numbers that either contain the digit 9 or are divisible by 9.

Original entry on oeis.org

0, 9, 18, 19, 27, 29, 36, 39, 45, 49, 54, 59, 63, 69, 72, 79, 81, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 108, 109, 117, 119, 126, 129, 135, 139, 144, 149, 153, 159, 162, 169, 171, 179, 180, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 207, 209, 216, 219
Offset: 0

Views

Author

N. J. A. Sloane, Mar 24 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Range[0, 300], Mod[#, 9] == 0||MemberQ[IntegerDigits[#], 9] &] (* Vincenzo Librandi, Jul 19 2016 *)

Extensions

More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004
Added missing term 199 by Vincenzo Librandi, Jul 19 2016

A092455 Numbers that either contain the digit 6 or are divisible by 6.

Original entry on oeis.org

0, 6, 12, 16, 18, 24, 26, 30, 36, 42, 46, 48, 54, 56, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 72, 76, 78, 84, 86, 90, 96, 102, 106, 108, 114, 116, 120, 126, 132, 136, 138, 144, 146, 150, 156, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 174, 176, 180, 186, 192, 196
Offset: 0

Views

Author

N. J. A. Sloane, Mar 24 2004

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Range[0,200],Divisible[#,6]||DigitCount[#,10,6]>0&] (* Harvey P. Dale, Jun 04 2011 *)
    Select[Range[0, 300], Mod[#, 6] == 0||MemberQ[IntegerDigits[#], 6] &] (* Vincenzo Librandi, Jul 19 2016 *)

Extensions

More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004
Corrected by Harvey P. Dale, Jun 04 2011
Showing 1-3 of 3 results.