|
|
A128688
|
|
a(1)=1. For n>1, a(n) is the smallest even number such that every subset of a(1), ..., a(n) adds to a nonprime.
|
|
3
|
|
|
1, 8, 24, 86, 90, 780, 5940, 52350, 278460, 40768260, 6847205430, 5027286840810
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The first 7 terms are from Rivera's puzzle 84.
|
|
LINKS
|
|
|
MATHEMATICA
|
a[1] = 1; a[n_] := a[n] = (s = Subsets[Array[a, n-1], n-1]; c = a[n-1] + 1; While[d = 1; While[!PrimeQ[Total[s[[d]]] + c] && d < Length@s, d++]; d != Length@s || PrimeQ[Total[s[[d]]] + c] || OddQ@c, c++]; c); Array[a, 8] (* Giorgos Kalogeropoulos, Nov 19 2021 *)
|
|
CROSSREFS
|
Cf. A052349 (no restrictions on even or odd), A128687 (restricted to odd numbers).
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|