[seqfan] Re: Please help to check A074140.

[Heinz, Alois]

It is also the row sums of A087443.

Your values are correct.

Maple program:

b:= proc(n, i, l)
       `if`(n=0, mul(ithprime(t)^l[t], t=1..nops(l)),
       `if`(i=1, b(0, 0, [l[], 1$n]),
        b(n, i-1, l)+ `if`(i>n, 0, b(n-i, i, [l[], i]))))
     end:
a:=n-> b(n$2, []):
seq (T(n), n=0..30);

Best regards, Alois

Am 03.08.2013 12:29, schrieb Peter Luschny:
> https://oeis.org/search?q=id%3AA036035|id%3AA074140
>
> My computation of A074140(12) does not agree with the value given.
> A074140 are the row sums of A036035 and I might have got the definition
> of A036035 wrong. Orderings of partitions can be confusing sometimes.
> "Least integer of each prime signature, in graded (reflected or not)
> colexicographic order of exponents." Wow!