login
A055943
Smallest k >1 such that k | Sigma(k) - n.
0
6, 2, 20, 2, 3, 2, 5, 2, 7, 2, 3, 2, 6, 2, 13, 2, 3, 2, 6, 2, 19, 2, 3, 2, 6, 2, 5, 2, 3, 2, 6, 2, 21, 2, 3, 2, 5, 2, 10, 2, 3, 2, 6, 2, 43, 2, 3, 2, 6, 2, 7, 2, 3, 2, 6, 2, 5, 2, 3, 2, 6, 2, 20, 2, 3, 2, 5, 2, 10, 2, 3, 2, 6, 2, 21, 2, 3, 2, 6, 2, 14, 2, 3, 2, 6, 2, 5, 2, 3, 2, 6, 2, 7, 2, 3, 2, 5, 2, 10
OFFSET
0,1
MATHEMATICA
Do[ k = 2; While[ Mod[ DivisorSigma[ 1, k ] - n, k ]!=0, k++ ]; Print[ k ], {n, 0, 100} ]
CROSSREFS
Sequence in context: A266711 A248269 A081778 * A319313 A277275 A213503
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 18 2000
STATUS
approved