OFFSET
0,1
MATHEMATICA
Do[ k = 2; While[ Mod[ DivisorSigma[ 1, k ] - n, k ]!=0, k++ ]; Print[ k ], {n, 0, 100} ]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 18 2000
STATUS
approved