OFFSET
0,3
LINKS
Max Alekseyev, Table of n, a(n) for n = 0..500
FORMULA
For a prime p, a(p) = 2. - Max Alekseyev, Sep 02 2023
EXAMPLE
The a(12) = 13 partitions:
(12),
(6,6), (7,5), (8,4), (9,3), (10,2), (11,1),
(4,4,4), (6,4,2), (8,2,2),
(3,3,3,3),
(2,2,2,2,2,2),
(1,1,1,1,1,1,1,1,1,1,1,1).
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], And@@IntegerQ/@Mean/@Union[Rest[Subsets[#]]]&]], {n, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 03 2018
EXTENSIONS
a(0) prepended and more terms added by Max Alekseyev, Sep 02 2023
STATUS
approved