login
Numbers in whose factorial base representation (A007623) no digit > 0 occurs more than once.
8

%I #20 Jan 24 2024 01:50:29

%S 0,1,2,4,5,6,10,12,13,14,18,19,20,22,23,24,28,36,42,46,48,49,50,54,66,

%T 67,68,72,73,74,76,77,78,82,84,85,86,96,97,98,100,101,102,106,108,109,

%U 110,114,115,116,118,119,120,124,132,138,142,168,186,192,196,204,216,220,228,234,238,240,241,242,246,258,259,260

%N Numbers in whose factorial base representation (A007623) no digit > 0 occurs more than once.

%C Zero is a special case in this sequence, thus a(0) = 0, and the indexing of natural numbers >= 1 present starts from a(1) = 1.

%C After a(0), positions of ones in A264990.

%H Antti Karttunen, <a href="/A265349/b265349.txt">Table of n, a(n) for n = 0..10080</a>

%H Indranil Ghosh, <a href="/A265349/a265349.txt">Python program for computing this sequence</a>.

%H <a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>.

%e 23 (in factorial base "321") is present, because none of the digits (which all are nonzero) occurs twice.

%e 48 (in factorial base "2000") is present, because the only nonzero digit, "2", occurs only once.

%e 259 (in factorial base "20301") is present, because none of the nonzero digits occurs more than once.

%t q[n_] := Module[{k = n, m = 2, r, s = {}}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, AppendTo[s, r]; m++]; Max[Tally[Select[s, # > 0 &]][[;;,2]]] == 1]; q[0] = True; Select[Range[0, 260], q] (* _Amiram Eldar_, Jan 24 2024 *)

%o (Scheme, with _Antti Karttunen_'s IntSeq-library)

%o (define A265349 (MATCHING-POS 0 0 (lambda (n) (<= (A264990 n) 1))))

%Y Cf. A007623, A264990.

%Y Cf. A265350 (complement).

%Y Cf. A000142 (a subsequence).

%Y Cf. also A266117.

%K nonn,base

%O 0,3

%A _Antti Karttunen_, Dec 22 2015