Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Mar 30 2012 17:30:25
%S 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,
%T 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,
%U 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
%N Smallest k >1 such that k | Sigma(k) - n.
%t Do[ k = 2; While[ Mod[ DivisorSigma[ 1, k ] - n, k ]!=0, k++ ]; Print[ k ], {n, 0, 100} ]
%K easy,nonn
%O 0,1
%A _Robert G. Wilson v_, Jul 18 2000