A074589 revision #12
|
|
A074589
|
|
Replace each number n in Pascal's triangle with the n-th prime.
|
|
2
|
|
|
2, 2, 2, 2, 3, 2, 2, 5, 5, 2, 2, 7, 13, 7, 2, 2, 11, 29, 29, 11, 2, 2, 13, 47, 71, 47, 13, 2, 2, 17, 73, 149, 149, 73, 17, 2, 2, 19, 107, 263, 349, 263, 107, 19, 2, 2, 23, 151, 433, 701, 701, 433, 151, 23, 2, 2, 29, 197, 659, 1291, 1601, 1291, 659, 197, 29, 2
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
REFERENCES
|
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins:
2;
2, 2;
2, 3, 2;
2, 5, 5, 2;
2, 7, 13, 7, 2;
2, 11, 29, 29, 11, 2;
2, 13, 47, 71, 47, 13, 2;
2, 17, 73, 149, 149, 73, 17, 2;
|
|
MATHEMATICA
|
Prime[#]&/@(Table[Binomial[n, k], {n, 0, 10}, {k, 0, n}]//Flatten) (* Harvey P. Dale, Apr 09 2017 *)
|
|
PROG
|
(PARI) lista(nn) = {for (n=0, nn, for (k=0, n, print1(prime(binomial(n, k)), ", "); ); ); } \\ Michel Marcus, May 18 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|