A369612 Numbers k such that k divides Sum_{i=1..k} A004086(i).
1, 3, 5, 7, 9, 18, 50, 89, 147, 161, 702, 999, 1323, 1998, 2091, 3042, 3072, 3753, 7982, 13408, 32493, 33867, 99999, 179922, 199998, 368121, 375897, 384876, 741137, 993006, 1173628, 1410462, 2021017, 3160593, 7212528, 9975778, 9999999, 17052657, 18093882, 18782433
Offset: 1
Examples
Sum_{i=1..18} A004086(i) / 18 = 414/18 = 23 thus k = 18 is a term.
Programs
-
Mathematica
With[{m = 10^7}, Position[Accumulate[Array[IntegerReverse, m]]/Range[m], ?IntegerQ] // Flatten] (* _Amiram Eldar, Jan 27 2024 *)
Comments