

A255342


Numbers n such that there are exactly two 1's in their factorial base representation (A007623).


6



3, 7, 8, 11, 15, 21, 25, 26, 29, 30, 34, 37, 38, 41, 43, 44, 47, 51, 55, 56, 59, 63, 69, 75, 79, 80, 83, 87, 93, 99, 103, 104, 107, 111, 117, 121, 122, 125, 126, 130, 133, 134, 137, 139, 140, 143, 144, 148, 156, 160, 162, 166, 169, 170, 173, 174, 178, 181, 182, 185, 187, 188, 191, 193, 194, 197, 198, 202
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

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


EXAMPLE

The factorial base representation (A007623) of 3 is "11", which contains exactly two 1's, thus 3 is included in the sequence.
The f.b.r. of 7 is "101", with exactly two 1's, thus 7 is included in the sequence.
The f.b.r. of 21 is "311", with exactly two 1's, thus 21 is included in the sequence.


MATHEMATICA

factBaseIntDs[n_] := Module[{m, i, len, dList, currDigit}, i = 1; While[n > i!, i++]; m = n; len = i; dList = Table[0, {len}]; Do[currDigit = 0; While[m >= j!, m = m  j!; currDigit++]; dList[[len  j + 1]] = currDigit, {j, i, 1, 1}]; If[dList[[1]] == 0, dList = Drop[dList, 1]]; dList]; s = Table[FromDigits[factBaseIntDs[n]], {n, 240}]; Flatten@ Position[s, x_ /; DigitCount[x][[1]] == 2](* Michael De Vlieger, Apr 27 2015, after Alonso del Arte at A007623 *)


PROG

(Scheme, with Antti Karttunen's IntSeqlibrary)
(define A255342 (MATCHINGPOS 1 0 (lambda (n) (= 2 (A257511 n)))))


CROSSREFS

Cf. A007623, A257511, A255411, A255341, A255343.
Subsequence of A256450.
Subsequence: A038507 (apart from its initial 2 terms).
Sequence in context: A069122 A278519 A007970 * A332572 A134258 A028972
Adjacent sequences: A255339 A255340 A255341 * A255343 A255344 A255345


KEYWORD

nonn,base


AUTHOR

Antti Karttunen, Apr 27 2015


STATUS

approved



