OFFSET
1,2
EXAMPLE
945 is in the sequence as A188172(945) = 4 via the divisors 7, 15, 63 and 135 and no positive integer < 945 has at least four such (7 (mod 8)) divisors.
MATHEMATICA
Function[{s, r}, Map[FirstPosition[s, #][[1]] &, r]] @@ {#, Union@ FoldList[Max, #]} &@ Array[DivisorSum[#, 1 &, Mod[#, 8] == 7 &] &, 10^6] (* Michael De Vlieger, Apr 08 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
David A. Corneth, Apr 06 2021
STATUS
approved