OFFSET
1,2
COMMENTS
Complement of A263831.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MATHEMATICA
Module[{t}, t[1] = 1; t[k_] := t[k] = Sum[DivisorSum[k-m, t[#] # &] t[m]/(k-1), {m, k-1}]; Select[Range[0, 107], EvenQ@t[#] &]] (* after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Reshetnikov, Nov 06 2015
STATUS
approved