A357388 Numbers k such that A071626(k) < A071626(k+1).
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
Offset: 1
Keywords
Examples
1 is a term since A071626(1) = 0 < A071626(2) = 1.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
s[n_] := Length[Union[FactorInteger[n!][[;; , 2]]]]; s[1] = 0; Select[Range[1000], s[#] < s[# + 1] &]
Comments