A341482 Number of ways to write n as an ordered sum of 5 nonprime numbers.

1, 0, 0, 5, 0, 5, 10, 5, 25, 15, 30, 55, 45, 85, 105, 126, 180, 220, 260, 360, 415, 510, 650, 745, 915, 1101, 1270, 1525, 1800, 2045, 2440, 2780, 3225, 3660, 4250, 4771, 5465, 6185, 6930, 7840, 8816, 9790, 11015, 12240, 13505, 15146, 16595, 18385, 20240, 22325, 24255

Offset

5,4

Links

Table of n, a(n) for n=5..55.

Maple

b:= proc(n, t) option remember;
      `if`(n=0, `if`(t=0, 1, 0), `if`(t<1, 0, add(
      `if`(isprime(j), 0, b(n-j, t-1)), j=1..n)))
    end:
a:= n-> b(n, 5):
seq(a(n), n=5..55);  # Alois P. Heinz, Feb 13 2021

Mathematica

nmax = 55; CoefficientList[Series[Sum[Boole[!PrimeQ[k]] x^k, {k, 1, nmax}]^5, {x, 0, nmax}], x] // Drop[#, 5] &

Crossrefs

Cf. A005171, A018252, A052284, A076608, A340961, A341452, A341464, A341480, A341481, A341483, A341484, A341485, A341486.

Sequence in context: A201939 A256192 A154814 * A055953 A165051 A154855

Adjacent sequences: A341479 A341480 A341481 * A341483 A341484 A341485

Keyword

nonn

Author

Ilya Gutkovskiy, Feb 13 2021

Status

approved