0,1

Table of n, a(n) for n=0..98.

Do[ k = 2; While[ Mod[ DivisorSigma[ 1, k ] - n, k ]!=0, k++ ]; Print[ k ], {n, 0, 100} ]

Sequence in context: A266711 A248269 A081778 * A319313 A277275 A213503

Adjacent sequences: A055940 A055941 A055942 * A055944 A055945 A055946

easy,nonn

Robert G. Wilson v, Jul 18 2000

approved