OFFSET
0,5
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..592
FORMULA
E.g.f.: exp(exp(x)-1-Sum_{p in primes} x^p/p!).
EXAMPLE
a(4) = 2: 1|2|3|4, 1234.
MAPLE
a:= proc(n) option remember; `if`(n=0, 1, add(`if`(
isprime(j), 0, a(n-j)*binomial(n-1, j-1)), j=1..n))
end:
seq(a(n), n=0..30);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Jul 25 2023
STATUS
approved