|
|
A195864
|
|
Numbers n such that sigma(n) + tau(n) is a perfect number (A000396).
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A002093(848) < a(9) <= 1155321467378283328. - Donovan Johnson, Nov 03 2011
|
|
LINKS
|
|
|
MATHEMATICA
|
perfect = {6, 28, 496, 8128, 33550336, 8589869056, 137438691328}; Select[Range[10000], MemberQ[perfect, DivisorSigma[0, #] + DivisorSigma[1, #]] &] (* T. D. Noe, Nov 03 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|