login
Numbers k such that k divides Sum_{i=1..k} A004086(i).
0

%I #13 Jan 30 2024 22:59:01

%S 1,3,5,7,9,18,50,89,147,161,702,999,1323,1998,2091,3042,3072,3753,

%T 7982,13408,32493,33867,99999,179922,199998,368121,375897,384876,

%U 741137,993006,1173628,1410462,2021017,3160593,7212528,9975778,9999999,17052657,18093882,18782433

%N Numbers k such that k divides Sum_{i=1..k} A004086(i).

%C Numbers k that divide A062918(k).

%e Sum_{i=1..18} A004086(i) / 18 = 414/18 = 23 thus k = 18 is a term.

%t With[{m = 10^7}, Position[Accumulate[Array[IntegerReverse, m]]/Range[m], _?IntegerQ] // Flatten] (* _Amiram Eldar_, Jan 27 2024 *)

%Y Cf. A004086, A062918.

%K nonn,base

%O 1,2

%A _Ctibor O. Zizka_, Jan 27 2024