OFFSET
0,8
COMMENTS
LINKS
Fausto A. C. Cariboni, Table of n, a(n) for n = 0..750
FORMULA
a(n) = A007359(n) - 1 for n > 1.
EXAMPLE
The a(n) partitions for n = 5, 7, 12, 13, 16, 17, 18, 19 (A..H = 10..17):
(3,2) (4,3) (7,5) (7,6) (9,7) (9,8) (B,7) (A,9)
(5,2) (5,4,3) (8,5) (B,5) (A,7) (D,5) (B,8)
(7,3,2) (9,4) (D,3) (B,6) (7,6,5) (C,7)
(A,3) (7,5,4) (C,5) (8,7,3) (D,6)
(B,2) (8,5,3) (D,4) (9,5,4) (E,5)
(9,5,2) (E,3) (9,7,2) (F,4)
(B,3,2) (F,2) (B,4,3) (G,3)
(7,5,3,2) (B,5,2) (H,2)
(D,3,2) (B,5,3)
(7,5,4,3)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], !MemberQ[#, 1]&&CoprimeQ@@#&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 21 2020
STATUS
approved