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

A131629 Numbers k such that the decimal expansion of 3^k contains no 3.

Original entry on oeis.org

0, 2, 3, 4, 6, 7, 8, 10, 11, 14, 19, 27, 28, 34, 40, 50, 55, 84
Offset: 1

Views

Author

Shyam Sunder Gupta, Sep 01 2007

Keywords

Comments

I conjecture that 84 is the last term.

Crossrefs

Cf. similar sequences listed in A131613.

Programs

  • Magma
    [n: n in [0..1000] | not 3 in Intseq(3^n) ]; // Vincenzo Librandi, May 06 2015
  • Mathematica
    Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 3] &]]

Extensions

Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015

A131625 Numbers k such that decimal expansion of 3^k contains no 2.

Original entry on oeis.org

0, 1, 2, 4, 8, 9, 10, 11, 12, 15, 20, 22, 29, 34, 35, 54, 59
Offset: 1

Views

Author

Shyam Sunder Gupta, Sep 01 2007

Keywords

Comments

I conjecture that 59 is the last term.

Crossrefs

Cf. similar sequences listed in A131613.
Cf. A007377.

Programs

  • Magma
    [n: n in [0..1000] | not 2 in Intseq(3^n)]; // Vincenzo Librandi, May 06 2015
    
  • Mathematica
    Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 2] &]]
  • PARI
    isok(n) = ! vecsearch(Set(digits(3^n)), 2); \\ Michel Marcus, Feb 09 2018

Extensions

Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015

A131614 Numbers k such that the decimal expansion of 3^k contains no 8.

Original entry on oeis.org

0, 1, 2, 3, 5, 6, 8, 10, 11, 12, 13, 16, 17, 19, 21, 33, 36, 51, 55, 56, 100
Offset: 1

Views

Author

Shyam Sunder Gupta, Sep 01 2007

Keywords

Comments

I conjecture that 100 is the last term.

Crossrefs

Cf. similar sequences listed in A131613.
Cf. A007377.

Programs

  • Magma
    [n: n in [0..1000] | not 8 in Intseq(3^n) ]; // Vincenzo Librandi, May 06 2015
  • Mathematica
    Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 8] &]]

Extensions

Adapted Mma and initial 0 added by Vincenzo Librandi, May 06 2015

A131615 Numbers k such that the decimal expansion of 3^k contains no 7.

Original entry on oeis.org

0, 1, 2, 4, 5, 8, 9, 10, 12, 13, 17, 21, 22, 24, 26, 30, 32, 33, 36, 42, 46, 66, 101
Offset: 1

Views

Author

Shyam Sunder Gupta, Sep 01 2007

Keywords

Comments

I conjecture that 101 is the last term.

Crossrefs

Cf. similar sequences listed in A131613.
Cf. A007377.

Programs

  • Magma
    [n: n in [0..1000] | not 7 in Intseq(3^n)]; // Vincenzo Librandi, May 06 2015
  • Mathematica
    Select[ Range@10000, FreeQ[ IntegerDigits[3^# ],7] &]

Extensions

Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015

A131616 Numbers k such that the decimal expansion of 3^k contains no 6.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 15, 18, 23, 32, 35, 42, 55, 104
Offset: 1

Views

Author

Shyam Sunder Gupta, Sep 01 2007

Keywords

Comments

I conjecture that 104 is the last term.

Crossrefs

Cf. similar sequences listed in A131613.
Cf. A007377.

Programs

  • Magma
    [n: n in [0..1000] | not 6 in Intseq(3^n) ]; // Vincenzo Librandi, May 06 2015
  • Mathematica
    Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 6] &]]

Extensions

Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015

A131617 Numbers k such that the decimal expansion of 3^k contains no 5.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 9, 11, 14, 15, 16, 17, 18, 19, 20, 23, 25, 29, 31, 41, 44, 52, 58, 81, 91
Offset: 1

Views

Author

Shyam Sunder Gupta, Sep 01 2007

Keywords

Comments

I conjecture that 91 is the last term.

Crossrefs

Cf. similar sequences listed in A131613.
Cf. A007377.

Programs

  • Magma
    [n: n in [0..1000] | not 5 in Intseq(3^n) ]; // Vincenzo Librandi, May 06 2015
  • Mathematica
    Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 5] &]]

Extensions

Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015

A131618 Numbers k such that the decimal expansion of 3^k contains no 4.

Original entry on oeis.org

0, 1, 2, 3, 4, 6, 7, 8, 9, 22, 33, 34, 38, 46, 49, 75, 106
Offset: 1

Views

Author

Shyam Sunder Gupta, Sep 01 2007

Keywords

Comments

I conjecture that 106 is the last term.

Crossrefs

Cf. similar sequences listed in A131613.
Cf. A007377.

Programs

  • Magma
    [n: n in [0..1000] | not 4 in Intseq(3^n)]; // Vincenzo Librandi, May 06 2015
  • Mathematica
    Join[{0}, Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 4] &]]

Extensions

Initial 0 added and Mathematica code adapted by Vincenzo Librandi, May 06 2015

A131627 Numbers k such that the decimal expansion of 3^k contains no 1.

Original entry on oeis.org

1, 2, 3, 5, 6, 10, 14, 18, 25, 27, 29, 33, 37, 43
Offset: 1

Views

Author

Shyam Sunder Gupta, Sep 01 2007

Keywords

Comments

I conjecture that 43 is the last term.

Crossrefs

Cf. similar sequences listed in A131613.
Cf. A007377.

Programs

  • Magma
    [n: n in [0..1000] | not 1 in Intseq(3^n) ]; // Vincenzo Librandi, May 06 2015
  • Mathematica
    Select[ Range@10000, FreeQ[ IntegerDigits[3^# ], 1] &]
Showing 1-8 of 8 results.