OFFSET
0,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..87
MATHEMATICA
f[n_] := DivisorSum[n, Boole@Divisible[n, #+2] &]; m = 20; a = Table[0, {m}]; c = 0; n = 2; While[c < m, f1 = f[n]; If[f1 > 0 && f1 <= m && a[[f1]] == 0, c++; a[[f1]] = n]; n++]; Join[{1}, a] (* Amiram Eldar, Sep 02 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 18 2004
STATUS
approved