|
|
A084306
|
|
Numbers x such that sigma(x) mod x = 12 and x is not divisible by 6. Singular solutions mentioned in A076496.
|
|
4
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If n = P*q, where P is a multiple perfect number and q is prime so that gcd(P,q) = 1, then sigma(n) = kn(q+1). Consequently sigma(n) = knq + kn sigma(n) mod n = kn. Such values of n are regular solutions to this and analogous cases. Here, not these but the additional eccentric solutions are collected. Cf. A076496.
If p = 2^k - 13 > 3 is a prime number, then 2^(k-1)*p is a term. This happens for k = 5, 9, 13, 17, 57, 105, 137, 3217, ... (A096818). - Giovanni Resta, Apr 01 2014
|
|
LINKS
|
|
|
EXAMPLE
|
n = 33501184 = 4096*8179; sigma(n) = 2n + 12 = 67002380.
|
|
MATHEMATICA
|
Do[s=Mod[DivisorSigma[1, n], n]; If[IntegerQ[n/100000], Print[{n}]]; If[Equal[s, 12]&&!Equal[Mod[n, 6], 0], Print[n]], {n, 1, 100000000}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|