A257263 Numbers such that the least missing nonzero digit (A257079) in their factorial base representation is 3.
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
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.
Links
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 *)