OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Do[If[Mod[n, 6]!=0, If[IntegerQ[n/DivisorSigma[0, n]], Print[n]]], {n, 1500}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 09 2000
STATUS
approved