|
%I #12 Oct 27 2023 22:00:43
%S 2,3,5,9,13,14,21,25,33,37,45,57,61,73,81,85,93,105,117,121,133,141,
%T 145,157,165,177,193,201,205,213,217,225,230,253,261,273,277,297,301,
%U 313,325,333,345,357,361,381,385,393,397,421,445,453,457,465,477,481
%N Record highs in A033885 (3n - sum of divisors of n).
%H Amiram Eldar, <a href="/A033945/b033945.txt">Table of n, a(n) for n = 1..10000</a>
%t f[n_] := 3n - DivisorSigma[1, n]; fm = 0; s = {}; Do[f1 = f[n]; If[f1 > fm, fm = f1; AppendTo[s, fm]], {n, 1, 250}]; s (* _Amiram Eldar_, Aug 28 2019 *)
%Y Cf. A033885, A033946.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_.
%E More terms from _Asher Auel_, May 05 2000
|
