OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1000], DivisorSigma[0, #] == DivisorSigma[0, #^2-1] &] (* Amiram Eldar, Jul 17 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 23 2002
STATUS
approved