|
|
A351895
|
|
Numbers with an equal number of odd and even digits in their factorial-base representation.
|
|
3
|
|
|
2, 5, 25, 26, 29, 30, 34, 37, 38, 41, 42, 46, 51, 55, 56, 59, 63, 67, 68, 71, 73, 74, 77, 78, 82, 85, 86, 89, 90, 94, 99, 103, 104, 107, 111, 115, 116, 119, 723, 727, 728, 731, 735, 739, 740, 743, 745, 746, 749, 750, 754, 757, 758, 761, 762, 766, 771, 775, 776
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
5 is a term since its factorial-base representation, 21, has one odd digit, 1, and one even digit, 2.
|
|
MATHEMATICA
|
max = 7; fctBaseDigits[n_] := IntegerDigits[n, MixedRadix[Range[max, 2, -1]]]; Select[Range[1, max!], EvenQ[Length[(d = fctBaseDigits[#])]] && Count[d, _?EvenQ] == Length[d]/2 &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|