Fredholm Rueppel sequences

(*Mathematica 8*)
(*program start*)
Clear[t];
modulus = 1;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]*
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 2;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]/
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 3;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]/
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 4;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]*
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 5;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]/
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 6;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]*
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 7;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]/
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 8;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]*
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 9;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]*
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 10;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]*
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 11;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]/
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)
(*program start*)
Clear[t];
modulus = 12;
nn = 100;
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]];
Table[Total[
  Table[t[n, k]*
    If[And[Mod[n, modulus] == 0, Mod[k, modulus] == 0], 1 - modulus,
     1], {k, 1, n}]], {n, 1, nn}]
(*program end*)