|
%I #13 Apr 09 2021 09:25:07
%S 1,5,45,315,585,2205,2925,9945,17325,28665,45045,135135,225225,405405,
%T 675675,1576575,2027025,2297295,3828825,6891885,11486475,26801775,
%U 34459425,43648605,72747675,130945815,218243025,509233725,654729075,1003917915,1527701175,3011753745,4583103525
%N Positions of records in A188171.
%e 585 is in the sequence as A188171(585) = 4 via the divisors 5, 13, 45 and 117 and no positive integer < 585 has at least four such (5 (mod 8)) divisors.
%t Function[{s, r}, Map[FirstPosition[s, #][[1]] &, r]] @@ {#, Union@ FoldList[Max, #]} &@ Array[DivisorSum[#, 1 &, Mod[#, 8] == 5 &] &, 10^6] (* _Michael De Vlieger_, Apr 08 2021 *)
%Y Cf. A188171, A343106.
%K nonn
%O 1,2
%A _David A. Corneth_, Apr 06 2021
|
