|
| |
|
|
A086753
|
|
Number of distinct entries in a slice of A046816.
|
|
1
| |
|
|
1, 1, 2, 3, 4, 5, 7, 8, 9, 12, 13, 16, 19, 21, 24, 25, 30, 32, 37, 40, 43, 46, 51, 56, 59, 64, 67, 75, 79, 83, 91, 93, 102, 108, 111, 119, 125, 131, 139, 147
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
EXAMPLE
| The 5th slice is
....1
...4.4
..6.12.6
.4.12.12.4
1.4..6..4.1
with distinct entries 1,4,6,12, so a(5)=4.
|
|
|
PROG
| (PARI) { pt=vector(40, i, matrix(i, i)); pt[1][1, 1]=1; pt[2][1, 1]=1; pt[2][2, 1]=1; pt[2][2, 2]=1; pt[3][1, 1]=1; pt[3][2, 1]=2; pt[3][2, 2]=2; pt[3][3, 1]=1; pt[3][3, 2]=2; pt[3][3, 3]=1; for (i=4, 40, for (j=2, i-1, pt[i][j, 1]=pt[i-1][j-1, 1]+pt[i-1][j, 1]; pt[i][j, j]=pt[i][j, 1]; pt[i][i, j]=pt[i][j, 1] ); pt[i][1, 1]=1; pt[i][i, 1]=1; pt[i][i, i]=1; for(j=3, i-1, for (k=2, j-1, pt[i][j, k]=pt[i-1][j, k]+pt[i-1][j-1, k]+pt[i-1][j-1, k-1]))); pt } { makept(x)=local(xl, v, vc, uc); xl=length(x); v=vector(xl*(xl+1)/2); vc=0; for (i=1, xl, for (j=1, i, v[vc++ ]=x[i, j])); v=vecsort(v); uc=1; for (i=2, length(v), if (v[i]!=v[i-1], uc++)); print1(", "uc) } for (i=1, 40, makept(pt([i]))
|
|
|
CROSSREFS
| Cf. A046816.
Sequence in context: A098897 A192140 A084092 * A160519 A051204 A192649
Adjacent sequences: A086750 A086751 A086752 * A086754 A086755 A086756
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Jul 31 2003
|
| |
|
|
