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.

A257263 Numbers such that the least missing nonzero digit (A257079) in their factorial base representation is 3.

Original entry on oeis.org

5, 10, 11, 13, 14, 15, 17, 28, 29, 34, 35, 36, 37, 38, 39, 40, 41, 49, 50, 51, 53, 54, 55, 56, 57, 58, 59, 61, 62, 63, 65, 101, 106, 107, 109, 110, 111, 113, 124, 125, 130, 131, 132, 133, 134, 135, 136, 137, 148, 149, 154, 155, 156, 157, 158, 159, 160, 161, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 220
Offset: 1

Views

Author

Antti Karttunen, Apr 27 2015

Keywords

Examples

			The factorial base representation (A007623) of 5 is "21", the least nonzero digit missing is 3, thus 5 is included.
The f.b.r. of 10 is "120", and likewise, 3 is the least missing digit, thus 10 is included.
The f.b.r. of 101 is "4021", where the least missing digit is 3, thus 101 is included in the sequence.
		

Crossrefs

Subsequence of A256450.

Programs

  • Mathematica
    q[n_] := Module[{k = n, m = 2, r, s = {}}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, AppendTo[s, r]; m++]; SubsetQ[s, {1, 2}] && !MemberQ[s, 3]]; Select[Range[220], q] (* Amiram Eldar, Feb 14 2024 *)