[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A351987
Numbers with factorial base expansion digits in nonincreasing order.
2
0, 1, 2, 3, 4, 5, 6, 8, 9, 12, 14, 15, 16, 17, 18, 20, 21, 22, 23, 24, 30, 32, 33, 48, 54, 56, 57, 60, 62, 63, 64, 65, 72, 78, 80, 81, 84, 86, 87, 88, 89, 90, 92, 93, 94, 95, 96, 102, 104, 105, 108, 110, 111, 112, 113, 114, 116, 117, 118, 119, 120, 144, 150
OFFSET
1,3
COMMENTS
This sequence is to factorial base what A009996 is to decimal base.
EXAMPLE
The factorial base expansion of 102 is "4100", so 102 belongs to this sequence.
The factorial base expansion of 103 is "4101", so 103 does not belong to this sequence.
MATHEMATICA
max = 6; q[n_] := AllTrue[Differences @ IntegerDigits[n, MixedRadix[Range[max, 2, -1]]], # <= 0 &]; Select[Range[0, max!], q] (* Amiram Eldar, Feb 28 2022 *)
PROG
(PARI) is(n) = { my (p=0); for (r=2, oo, if (n==0, return (1)); my (d=n%r); if (d<p, return (0), p=d; n\=r)) }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Feb 27 2022
STATUS
approved