OFFSET
0,3
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..2713 (rows 0..20)
S.-H. Cha, E. G. DuCasse, and L. V. Quintas, Graph Invariants Based on the Divides Relation and Ordered by Prime Signatures, arxiv:1405.5283 [math.NT], 2014.
FORMULA
EXAMPLE
Triangle T(n,k) begins:
1;
1;
2, 2;
2, 3, 4;
3, 4, 5, 6, 8;
3, 5, 6, 8, 9, 12, 16;
4, 6, 8, 10, 8, 12, 16, 14, 18, 24, 32;
...
MAPLE
b:= (n, i)-> `if`(n=0 or i=1, [[1$n]], [map(x->
[i, x[]], b(n-i, min(n-i, i)))[], b(n, i-1)[]]):
T:= n-> map(x-> ceil(numtheory[tau](mul(ithprime(i)
^x[i], i=1..nops(x)))/2), b(n$2))[]:
seq(T(n), n=0..9); # Alois P. Heinz, Mar 25 2020
PROG
(PARI) \\ here b(n) is A038548.
b(n)={ceil(numdiv(n)/2)}
N(sig)={prod(k=1, #sig, prime(k)^sig[k])}
Row(n)={apply(s->b(N(s)), vecsort([Vecrev(p) | p<-partitions(n)], , 4))}
{ for(n=0, 8, print(Row(n))) } \\ Andrew Howroyd, Mar 25 2020
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Sung-Hyuk Cha, Mar 07 2014
EXTENSIONS
Offset changed and terms a(50) and beyond from Andrew Howroyd, Mar 25 2020
STATUS
approved