Sequence A030230 in the OEIS

(*Mathematica 8*)
(*program start*)
Clear[t];
nn = 149;
t[n_, 1] = 1;
t[1, k_] = 1;
t[n_, k_] :=
  t[n, k] =
   If[n < k,
    If[And[n > 1, k > 1], Sum[-t[k - i, n], {i, 1, n - 1}], 0],
    If[And[n > 1, k > 1], Sum[-t[n - i, k], {i, 1, k - 1}], 0]];
Flatten[Position[
  Sign[Table[
    Total[(Table[Table[t[n, k], {k, 1, n}], {n, 1, nn}]*
        Table[Reverse[Table[t[n, k], {k, 1, n}]], {n, 1,
          nn}])[[j]]], {j, 1, nn}]], -1]]
(*program start*)

{2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, \
30, 31, 32, 37, 41, 42, 43, 47, 49, 53, 59, 60, 61, 64, 66, 67, 70, \
71, 73, 78, 79, 81, 83, 84, 89, 90, 97, 101, 102, 103, 105, 107, 109, \
110, 113, 114, 120, 121, 125, 126, 127, 128, 130, 131, 132, 137, 138, \
139, 140, 149}