|
|
A064813
|
|
a(n) = binomial(composite(n), n), where composite = A002808, composite numbers.
|
|
1
|
|
|
4, 15, 56, 126, 252, 924, 3432, 6435, 11440, 43758, 167960, 293930, 497420, 1961256, 3268760, 5311735, 8436285, 13123110, 54627300, 225792840, 354817320, 548354040, 834451800, 1251677700, 5414950296, 8122425444, 12033222880
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(PARI)j=0; i=4; while(i<100, while(isprime(i), i=i+1); j=j+1; print(binomial(i, j)); i=i+1)
(PARI) nextComp(n)= { if (!isprime(n), return(n)); return(n + 1) } { c=3; for (n=1, 200, c=nextComp(c + 1); write("b064813.txt", n, " ", binomial(c, n)) ) } \\ Harry J. Smith, Sep 27 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|