OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1000], Mod[ #, 1 + DivisorSigma[0, # ]] == 0 &]
PROG
(PARI) isok(k) = Mod(k, numdiv(k)+1) == 0; \\ Michel Marcus, Mar 12 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 09 2000
EXTENSIONS
Edited by T. D. Noe, Nov 13 2009
STATUS
approved