OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
50 has 6 divisors and 6 has 4 divisors. 4 is not coprime to 50 and 4 does not divide 50. So 50 is in the sequence.
MATHEMATICA
Select[Range[400], GCD[DivisorSigma[0, DivisorSigma[0, # ]], # ] > 1 && Mod[ #, DivisorSigma[0, DivisorSigma[0, # ]]] > 0 &] (* Stefan Steinerberger, Jun 05 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 04 2008
EXTENSIONS
More terms from Stefan Steinerberger, Jun 05 2008
STATUS
approved