|
|
A102330
|
|
Triangle read by rows: n-th row consists of the lexicographically earliest set of n distinct primes whose sum is A068873(n).
|
|
3
|
|
|
2, 2, 3, 3, 5, 11, 2, 3, 5, 7, 3, 5, 7, 11, 17, 2, 3, 5, 7, 11, 13, 3, 5, 7, 11, 13, 17, 23, 2, 3, 5, 7, 11, 13, 19, 23, 3, 5, 7, 11, 13, 17, 19, 23, 29, 2, 3, 5, 7, 11, 13, 17, 19, 23, 31, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 41, 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 3, 5, 7, 11, 13, 17
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins:
2
2,3
3,5,11
2,3,5,7
3,5,7,11,17
2,3,5,7,11,13
3,5,7,11,13,17,23
2,3,5,7,11,13,19,23
3,5,7,11,13,17,19,23,29
2,3,5,7,11,13,17,19,23,31
3,5,7,11,13,17,19,23,29,31,41
2,3,5,7,11,13,17,19,23,29,31,37
3,5,7,11,13,17,19,23,29,31,37,41,47
2,3,5,7,11,13,17,19,23,29,31,37,41,43
3,5,7,11,13,17,19,23,29,31,37,41,43,47,53
|
|
MATHEMATICA
|
(* Computation verified with A068873. *)
row[n_] := Module[{s, m}, s = Select[{#, Total[#]}& /@ Subsets[ Prime[ Range[n+4]], {n}], PrimeQ[#[[2]]]&]; m = MinimalBy[s, #[[2]]&, 1]; If[s != {}, Return[m[[1, 1]]]]];
|
|
CROSSREFS
|
By definition, row sums are A068873.
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|