|
1, 3, 5, 9, 14, 21, 32, 43, 54, 65, 67, 84, 101, 115, 118, 135, 144, 152, 173, 202, 221, 231, 258, 260, 289, 295, 318, 332, 347, 369, 376, 405, 409, 423, 434, 450, 476, 491, 530, 532, 573, 589, 614, 648, 655, 696, 707, 736, 737, 766, 778, 803, 819, 825, 860, 870
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Conjecture: This sequence has an asymptotic density 0.028..., which is the same as the asymptotic density of A357390 (see A357385).
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
s[n_] := Length[Union[FactorInteger[n!][[;; , 2]]]]; s[1] = 0; Select[Range[1000], s[#] < s[# + 1] &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|