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

1, 2, 3, 6, 7, 8, 9, 19, 20, 21, 24, 25, 26, 27, 30, 31, 32, 33, 42, 43, 44, 45, 73, 74, 75, 78, 79, 80, 81, 91, 92, 93, 97, 98, 99, 102, 103, 104, 105, 115, 116, 117, 120, 121, 122, 123, 126, 127, 128, 129, 138, 139, 140, 141, 144, 145, 146, 147, 150, 151, 152, 153, 162, 163, 164, 165, 192, 193, 194, 195, 198, 199, 200, 201

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..9361

Index entries for sequences related to factorial base representation.

Example

The factorial base representation (A007623) of 1 is "1", the least nonzero digit missing from that is 2, thus 1 is included in this sequence.
Likewise for 2, whose f.b.r. is "10", and also for  42 whose f.b.r. is "1300", the least nonzero digit missing from them is 2, thus also 2 and 42 are included in this sequence.

Mathematica

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

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A257262 (MATCHING-POS 1 0 (lambda (n) (= 2 (A257079 n)))))

Crossrefs

Cf. A007623, A257079, A255411, A257263.

Cf. A059590 (is a subsequence, apart from its zero-term).

Subsequence of A256450.

Sequence in context: A319737 A060132 A306556 * A293397 A059590 A276156

Adjacent sequences: A257259 A257260 A257261 * A257263 A257264 A257265

Keyword

nonn,base

Author

Antti Karttunen, Apr 27 2015

Status

approved