A341469 Number of partitions of n into 10 distinct nonprime parts.

1, 0, 1, 1, 2, 2, 4, 3, 6, 7, 10, 11, 17, 17, 25, 28, 38, 44, 57, 64, 82, 95, 117, 136, 168, 189, 231, 264, 317, 366, 433, 490, 579, 660, 770, 877, 1019, 1146, 1327, 1497, 1720, 1940, 2215, 2481, 2825, 3165, 3583, 4008, 4523, 5033, 5664

Offset

95,5

Links

Table of n, a(n) for n=95..145.

Maple

b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<t or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i-1), t-1))))
    end:
a:= n-> b(n$2, 10):
seq(a(n), n=95..145);  # Alois P. Heinz, Feb 12 2021

Mathematica

b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < t || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i - 1], t - 1]]]];
a[n_] := b[n, n, 10];
Table[a[n], {n, 95, 145}] (* Jean-François Alcover, Feb 28 2022, after Alois P. Heinz *)

Crossrefs

Cf. A005171, A018252, A096258, A219204, A302479, A341460, A341461, A341462, A341464, A341465, A341466, A341467, A341468.

Sequence in context: A238790 A238787 A293170 * A101200 A122585 A057449

Adjacent sequences: A341466 A341467 A341468 * A341470 A341471 A341472

Keyword

nonn

Author

Ilya Gutkovskiy, Feb 12 2021

Status

approved