OFFSET
1,2
COMMENTS
Numbers k such that k divides the total number of parts in all partitions of k.
Next term, if it exists, is greater than 100000. - Vaclav Kotesovec, May 04 2018
EXAMPLE
5 is in the sequence because we have [5], [4, 1], [3, 2], [3, 1, 1], [2, 2, 1], [2, 1, 1, 1], [1, 1, 1, 1, 1] and 5 + 4 + 3 + 3 + 2 + 2 + 1 = 20 is divisible by 5.
MATHEMATICA
Select[Range[200], Mod[Total[IntegerPartitions[#][[;; , 1]]], #]==0&] (* The program generates the first six terms of the sequence. *) (* Harvey P. Dale, Oct 03 2023 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ilya Gutkovskiy, Apr 12 2018
STATUS
approved