This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A355542 #4 Jul 07 2022 02:07:19 %S A355542 1,2,3,11,13,50,81,96,395,640,59136,65719,632621,1342813,2137073, %T A355542 2755370,3446370,10860093,321939569,1872591111,8858043355 %N A355542 Numbers k such that A272718(k) is divisible by k. %C A355542 Numbers k such that the mean value of A018804 over the range 1..k is an integer. %C A355542 The corresponding quotients are 1, 2, 3, 13, 16, 80, 141, 172, 865, 1500, 219530, 246058, 2804048, 6259092, 10263121, 13445321, 17051542, 57521176, 2036840289, 12849666590, 64967828053, ... . %C A355542 a(22) > 6.5*10^10, if it exists. %e A355542 11 is a term since A061201(11) = 143 = 11 * 13 is divisible by 11. %t A355542 f[p_,e_] := (e*(p-1)/p+1)*p^e; pillai[1] = 1; pillai[n_] := Times @@ f @@@ FactorInteger[n]; seq = {}; sum = 0; Do[sum += pillai[n]; If[Divisible[sum, n], AppendTo[seq, n]], {n, 1, 10^6}]; seq %Y A355542 Cf. A018804, A272718. %Y A355542 Similar sequences: A045345, A050226, A056550, A064605, A064606, A064607, A064610, A064611, A064612, A048290. %K A355542 nonn,more %O A355542 1,2 %A A355542 _Amiram Eldar_, Jul 06 2022