|
|
A138948
|
|
Triangle T[i,j] = exponent of prime A000040(j) in factorization of composite A002808(i).
|
|
1
|
|
|
2, 1, 1, 3, 0, 0, 0, 2, 0, 0, 1, 0, 1, 0, 0, 2, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This is the lower left half of A063173 (whose upper right half is zero), see there for more information and cross-references.
|
|
LINKS
|
|
|
FORMULA
|
A002808(i) = product( A000040(j)^T[i,j], j=1..i), where T[i,j] = a(i(i-1)/2+j)
|
|
EXAMPLE
|
The first row (2) of the triangle corresponds to the first composite number A002808(1) = 4 = 2^2 = prime(1)^2.
The 2nd row (1,1) of the triangle corresponds to the 2nd composite number A002808(2) = 6 = 2^1 * 3^1 = A000040(1)^1 A000040(2)^1.
|
|
PROG
|
(PARI) T=matrix(40, 40, i, j, t=0; until(c[i]%prime(j)^t++, ); t-1); A138948=concat(vector(vecmin(matsize(T)), i, vector(i, j, T[i, j])))
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|