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 A307043 #9 Apr 29 2019 20:52:12 %S A307043 1,3,4,8,13,78,94,481,511,4819,13557,23083,84245,204744,562243,591105, %T A307043 614339,617675,656263,1545716,6370802,34882737,534034248,601990019, %U A307043 1153304776,2064184733,3570196547,10572032882 %N A307043 Numbers n such that A307042(n) = Sum_{k=1..n} esigma(k) is divisible by n, where esigma(k) is sum of exponential divisors of k (A051377). %C A307043 The exponential version of A056550. %C A307043 The corresponding quotients are 1, 2, 3, 5, 8, 45, ... (see the link for more values). %H A307043 Amiram Eldar, <a href="/A307043/a307043.txt">Table of n, a(n), A307042(a(n))/a(n) for n=1..28.</a> %e A307043 3 is in the sequence since esigma(1) + esigma(2) + esigma(3) = 1 + 2 + 3 = 6 is divisible by 3. %t A307043 esigma[n_] := Times @@ (Sum[ First[#]^d, {d, Divisors[Last[#]]}] & ) /@ FactorInteger[n]; seq={};s = 0; Do[s = s + esigma [n]; If[Divisible[s,n], AppendTo[seq,n]], {n, 1, 10^6}]; seq (* after _Jean-François Alcover_ at A051377 *) %Y A307043 Cf. A051377, A056550, A064611, A307042. %K A307043 nonn,more %O A307043 1,2 %A A307043 _Amiram Eldar_, Mar 21 2019