login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Smallest k >1 such that k | Sigma(k) - n.
0

%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