STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
With[{r = Range[200]}, PositionIndex[CoprimeQ[r, Accumulate[DivisorSigma[0, r]]]][True]] (* Paolo Xausa, Feb 21 2024 *)
approved
editing
Robert Israel, <a href="/A140221/b140221_1.txt">Table of n, a(n) for n = 1..10000</a>
reviewed
approved
proposed
reviewed
editing
proposed
A number n is included if n is coprime to sumSum_{k=1 to ..n} d(k), where d(k) is the number of divisors of k.
sumSum_{k=1 to ..n} d(k) = sumSum_{k=1 to ..n} floor(n/k) = A006218(n).
proposed
editing
editing
proposed