OFFSET
0,17
MAPLE
b:= proc(n, t) option remember; `if`(n=0, 1, add(
`if`(isprime(j), 0, b(n-j, t)), j=1..min(n, t)))
end:
a:= n-> b(n, floor(sqrt(n))):
seq(a(n), n=0..47); # Alois P. Heinz, Jan 13 2024
MATHEMATICA
Table[SeriesCoefficient[1/(1 - Sum[Boole[!PrimeQ[k]] x^k, {k, 1, Floor[Sqrt[n]]}]), {x, 0, n}], {n, 0, 47}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 08 2024
STATUS
approved