OFFSET
0,7
EXAMPLE
The partitions for n = 4, 6, 10, 19, 20, 25:
(22) (33) (55) (55333) (7733) (55555)
(222) (3322) (55522) (77222) (77722)
(22222) (3333322) (553322) (5533333)
(33322222) (5522222) (5553322)
(332222222) (55333222)
(55522222)
(333333322)
(3333322222)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], And@@PrimeQ/@#&&And@@PrimeQ/@Length/@Split[#]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 18 2022
STATUS
approved