A341504 Number of ways to write n as an ordered sum of 10 nonprime numbers.

1, 0, 0, 10, 0, 10, 45, 10, 100, 130, 135, 460, 390, 820, 1435, 1552, 3135, 4090, 5805, 9370, 12040, 17890, 25485, 33940, 48385, 65812, 87925, 121040, 160155, 212350, 283666, 368590, 482750, 628390, 806450, 1039382, 1327060, 1682860, 2134730, 2684320, 3364819

Offset

10,4

Links

Table of n, a(n) for n=10..50.

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, 10):
seq(a(n), n=10..50);  # Alois P. Heinz, Feb 13 2021

Mathematica

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

Crossrefs

Cf. A005171, A018252, A052284, A076608, A340966, A341460, A341469, A341480, A341481, A341482, A341483, A341484, A341485, A341486.

Sequence in context: A010681 A095418 A055961 * A196081 A320380 A088001

Adjacent sequences: A341501 A341502 A341503 * A341505 A341506 A341507

Keyword

nonn

Author

Ilya Gutkovskiy, Feb 13 2021

Status

approved