|
Search: id:A133660
|
|
|
| A133660 |
|
No sum of 2 or more terms equals a prime. |
|
+0
3
|
|
| 1, 3, 5, 87, 113, 1151, 5371, 199276, 32281747, 16946784207
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
5 is a term of the series, as 5+1, 5+3, and 5+3+1 are all not prime. The next term, 87, is the next number n such that n+1, n+3, n+1+3, n+5, n+1+5, n+3+5, and n+1+3+5 are all not prime.
|
|
MATHEMATICA
|
(* first do *) Needs["Combinatorica`"] (* then *) lst = {}; 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[g[k] == True, k++ ]; AppendTo[lst, k]; k]; Do[Print@f@n, {n, 10}]. - Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 31 2007
|
|
CROSSREFS
|
Cf. A052349, A133661.
Adjacent sequences: A133657 A133658 A133659 this_sequence A133661 A133662 A133663
Sequence in context: A122912 A062214 A107655 this_sequence A057663 A056244 A103081
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Randy L. Ekl (Randy.Ekl(AT)Motorola.com), Dec 28 2007
|
|
EXTENSIONS
|
a(9) from Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 31 2007
a(10) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Feb 15 2008
|
|
|
Search completed in 0.002 seconds
|
