OFFSET
1,1
LINKS
EXAMPLE
71 is a term since the factorial-base representations of 71 and 73 are 2321 and 3001, respectively, and both have 2 odd digits and 2 even digits.
MATHEMATICA
max = 7; fctBaseDigits[n_] := IntegerDigits[n, MixedRadix[Range[max, 2, -1]]]; s = Select[Range[1, max!], EvenQ[Length[(d = fctBaseDigits[#])]] && Count[d, _?EvenQ] == Length[d]/2 &]; ind = Position[Differences[s], 2] // Flatten; s[[ind]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Feb 24 2022
STATUS
approved