OFFSET
0,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..65537
MATHEMATICA
Do[ k = 2; While[ Mod[ DivisorSigma[ 1, k ] + n, k ] != 0, k++ ]; Print[ k ], {n, 0, 100} ]
PROG
(PARI) A055942(n) = for(k=2, oo, if(!((sigma(k)+n)%k), return(k))); \\ Antti Karttunen, Sep 30 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 18 2000
STATUS
approved