|
|
A133661
|
|
No sum of 2 or more terms equals a prime, terms alternate parity and there are no primes in the list.
|
|
3
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
25 is a term, because 25 is odd (previous term was even), 25 is composite and 25+1, 25+8 and 25+8+1 are all composite.
|
|
MATHEMATICA
|
(* first do *) Needs["Combinatorica`"] (* then *) lst = {1, 8}; g[k_] := Block[{j = 1, l = 2^Length@lst}, While[j < l && !PrimeQ[Plus @@ NthSubset[j, lst] + k], j++ ]; If[j == l, False, True]]; f[n_] := Block[{k = lst[[ -1]] + 1}, While[PrimeQ@k || g[k] == True, k++; k++ ]; AppendTo[lst, k]; k]; Do[ Print@ f@ n, {n, 10}] (* Robert G. Wilson v, Jan 01 2008 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|