OFFSET
1,6
COMMENTS
a(p)=-1 iff p is a prime.
LINKS
Metin Sariyar, Table of n, a(n) for n = 1..5000
MATHEMATICA
Table[d = Divisors[n]; Apply[Times, d] - Apply[Plus, d], {n, 1, 50}]
CROSSREFS
KEYWORD
sign
AUTHOR
Emrehan Halici (emrehan(AT)halici.com.tr), Oct 27 2002
EXTENSIONS
Edited by Robert G. Wilson v, Oct 29 2002
STATUS
approved