OFFSET
0,17
EXAMPLE
The a(n) partitions for selected n (B = 11):
n = 10 16 19 20 25 28
---------------------------------------------------------------
3322 5533 55333 7733 77722 BB33
55222 55522 77222 5533333 BB222
3322222 3333322 553322 5553322 775522
33322222 5522222 55333222 55533322
332222222 55522222 772222222
333333322 3322222222222
3333322222
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], !SameQ@@#&&And@@PrimeQ/@#&& And@@PrimeQ/@Length/@Split[#]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 24 2022
STATUS
approved