OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1000], DivisorSigma[0, #^2 - 1] == DivisorSigma[0, #^2 + 1] &] (* Amiram Eldar, Jun 04 2022 *)
PROG
(PARI) isok(n) = numdiv(n^2-1) == numdiv(n^2+1); \\ Michel Marcus, Nov 24 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 04 2002
STATUS
approved