OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.
EXAMPLE
The a(15) = 8 partitions are: (15), (14,1), (12,3), (12,2,1), (10,5), (10,4,1), (6,9), (8,6,1).
MAPLE
p:= proc(n) option remember; nops(ifactors(n)[2]) end:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<0, 0,
add((t-> `if`(t<i, b(n-j, t), 0))(p(j)), j=1..n)))
end:
a:= n-> b(n$2):
seq(a(n), n=0..68); # Alois P. Heinz, Feb 14 2024
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], UnsameQ@@PrimeNu/@#&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 07 2022
EXTENSIONS
a(56) and beyond from Lucas A. Brown, Dec 14 2022
STATUS
approved