OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..4000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.
EXAMPLE
The a(1) = 1 through a(8) = 9 compositions:
(1) (2) (3) (4) (5) (6) (7) (8)
(11) (111) (22) (23) (33) (25) (35)
(1111) (32) (222) (52) (44)
(11111) (111111) (223) (53)
(232) (233)
(322) (323)
(1111111) (332)
(2222)
(11111111)
MAPLE
b:= proc(n, i) option remember; uses numtheory; `if`(n=0, 1, add(
(t-> `if`(i<0 or i=t, b(n-j, t), 0))(bigomega(j)), j=1..n))
end:
a:= n-> b(n, -1):
seq(a(n), n=0..44); # Alois P. Heinz, Feb 12 2024
MATHEMATICA
Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n], SameQ@@PrimeOmega/@#&]], {n, 0, 10}]
KEYWORD
nonn
AUTHOR
Gus Wiseman, Dec 11 2022
EXTENSIONS
a(21) and beyond from Lucas A. Brown, Dec 15 2022
STATUS
approved