OFFSET
1,1
COMMENTS
The numbers of terms not exceeding 10^k, for k = 1, 2, ..., are 3, 30, 298, 2990, 29881, 298792, 2987904, 29879025, ... . Apparently, the asymptotic density of this sequence exists and equals 0.29879... . - Amiram Eldar, Jan 18 2024
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
A094758(2) = 1 < 2, hence 2 is in the sequence.
MATHEMATICA
aQ[n_] := Module[{k = 1, r = DivisorSigma[0, n]/n}, While[DivisorSigma[0, k]/k != r, k++]; k < n]; Select[Range[200], aQ] (* Amiram Eldar, Aug 19 2019 *)
PROG
(PARI) for(n=1, 205, s=numdiv(n); k=1; while(n*numdiv(k)!=k*s, k++); if(k<n, print1(n, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Jun 01 2004
STATUS
approved