OFFSET
1,2
COMMENTS
In other words: 1 together with the first differences of A340492.
Conjecture: a(n) is the size of the n-th section of a table of correspondence between divisors and partitions.
EXAMPLE
Illustration of initial terms:
A000070: 1 2 4 7 12 19 30
A000041 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
1 |_| | | | | | |
2 |_ _| | | | | |
3 |_ _ _ _| | | | |
| | | | |
5 |_ _ _ _ _ _ _| | | |
| | | |
7 |_ _ _ _ _ _ _ _ _ _ _ _| | |
| | |
| | |
| | |
11 |_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _| |
| |
| |
| |
15 |_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|
...
a(n) is the area (or the number of cells) in the n-th region (or section) of the diagram.
For n = 3 the third region of the diagram contains 8 cells, so a(3) = 8.
For n = 7 the seventh region of the diagram contains 241 cells, so a(7) = 241.
MATHEMATICA
a[n_] := PartitionsP[n]*Count[Flatten[IntegerPartitions[n]], 1] - PartitionsP[n - 1]*Count[Flatten[IntegerPartitions[n - 1]], 1]; Table[a[n], {n, 1, 36}] (* Robert P. P. McKone, Jan 28 2021 *)
PROG
(PARI) f(n) = numbpart(n)*sum(k=0, n-1, numbpart(k)); \\ A340492
a(n) = if (n==1, 1, f(n)-f(n-1)); \\ Michel Marcus, Jan 28 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 10 2021
STATUS
approved