OFFSET
0,2
EXAMPLE
PROG
(Magma) IsSemiprime:=func<n|&+[d[2]: d in Factorization(n)] eq 2>;
ch:=func<p|IsPrime(p) and (IsPrime(p+2) or IsSemiprime(p+2))>; b:=[n: n in [1..4000] |ch(n)]; a:=[]; for n in [0..47] do k:=1; while #RestrictedPartitions(k, 2, Set(b)) ne n do k:=k+1; end while; Append(~a, k); end for; a;
CROSSREFS
KEYWORD
nonn
AUTHOR
Marius A. Burtea, Jan 25 2024
STATUS
approved