|
Search: id:A082931
|
|
|
| A082931 |
|
a(1) = 1; a(n) = least k > a(n-1) such that a(i)+k is prime for some i < n, and each prime of form a(i)+a(j) occurs for unique i <= j. |
|
+0
4
|
|
| 1, 2, 3, 5, 8, 14, 20, 23, 24, 37, 43, 48, 49, 55, 61, 75, 90, 109, 117, 118, 121, 139, 141, 157, 183, 193, 199, 212, 223, 229, 241, 245, 271, 277, 296, 301, 313, 320, 321, 331, 363, 368, 393, 403, 410, 422, 439, 457, 468, 469, 481, 491, 511, 525, 530, 535, 607
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
a[1]=1; p[1]={2}; a[n_] := Module[{k, new}, For[k=a[n-1]+1, Intersection[p[n-1], (new=Select[(a/@Range[n-1])+k, PrimeQ])]!={}||new=={}, k++, Null]; p[n]=Union[p[n-1], new]; a[n]=k]
|
|
CROSSREFS
|
Cf. A082932, A082933, A080435.
Adjacent sequences: A082928 A082929 A082930 this_sequence A082932 A082933 A082934
Sequence in context: A117566 A123000 A132599 this_sequence A034413 A034416 A056366
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net), Apr 14 2003
|
|
|
Search completed in 0.002 seconds
|
