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,2

Comments

Numbers k that divide A062918(k).

Links

Table of n, a(n) for n=1..40.

Example

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

Mathematica

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

Crossrefs

Cf. A004086, A062918.

Sequence in context: A057482 A114136 A025072 * A083107 A338637 A003052

Adjacent sequences: A369609 A369610 A369611 * A369613 A369614 A369615

Keyword

nonn,base

Author

Ctibor O. Zizka, Jan 27 2024

Status

approved