OFFSET
1,2
COMMENTS
Complement of A258592.
MATHEMATICA
Module[{t}, t[1] = 1; t[k_] := t[k] = Sum[DivisorSum[k-m, t[#] # &] t[m]/(k-1), {m, k-1}]; Select[Range[140], OddQ@t[#] &]] (* after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Reshetnikov, Nov 03 2015
STATUS
approved