OFFSET
1,2
COMMENTS
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..70
MATHEMATICA
fQ[n_] := Mod[DivisorSigma[1, n^2], n] == 0 && Mod[DivisorSum[n, #*DivisorSigma[1, #] &], n] == 0; Select[Range[100000], fQ] (* T. D. Noe, Nov 25 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 24 2013
STATUS
approved