A358101 - OEIS

%I #18 Nov 05 2022 05:47:22

%S 1,2,4,6,12,20,30,40,60,120,240,360,420,840,1260,2520,5040,8640,10080,

%T 15120,20160,30240,60480,120960,181440,362880,544320,786240,1572480,

%U 1874880,3749760,5624640,7862400,14938560,23587200,24373440,31872960,63745920,95618880

%N Positions of records in A358099, i.e., integers whose number of divisors whose decimal digits are in strictly decreasing order sets a new record.

%C As A009995 is finite, this sequence is necessarily finite.

%C Corresponding records are 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, ...

%e a(9) = 60 is in the sequence because A358099(60) = 10 is larger than any earlier value in A358099.

%t f[n_] := DivisorSum[n, 1 &, Greater @@ IntegerDigits[#] &]; fm = 0; s = {}; Do[If[(fn = f[n]) > fm, fm = fn; AppendTo[s, n]], {n, 1, 10^6}]; s (* _Amiram Eldar_, Nov 03 2022 *)

%Y Cf. A009995, A190219, A358099, A358100.

%Y Similar sequences: A093036, A340548, A357173.

%K nonn,base,fini

%O 1,2

%A _Bernard Schott_, Nov 03 2022

%E More terms from _Amiram Eldar_, Nov 03 2022