|
Search: id:A073672
|
|
|
| A073672 |
|
Rearrangement of natural numbers such that sum of n (n>1) terms starting from the n-th term (included) is a prime. |
|
+0
3
|
|
| 2, 1, 4, 3, 6, 5, 9, 7, 10, 8, 14, 11, 12, 13, 22, 15, 26, 16, 20, 17, 25, 18, 28, 19, 32, 21, 35, 23, 30, 24, 34, 27, 36, 29, 33, 31, 39, 37, 49, 38, 45, 40, 41, 42, 54, 43, 51, 44, 59, 46, 58, 47, 52, 48, 53, 50, 57, 55, 65, 56, 64, 60, 62, 61, 68, 63, 69, 66, 77, 67, 74, 70
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Every 2k-th term is the smallest number which has not been included earlier.
|
|
EXAMPLE
|
a(1) = 2, a(2)=1, 1+4 = 5 which is prime; a(3) = 4, 4+3+6 = 13 which is prime; a(4) = 3, 3+6+5+9 = 23 which is prime; etc.
|
|
MATHEMATICA
|
a = {2, 1, 4}; f[n_] := Block[{k = 1, b = Take[a, {n, 2n - 3}]}, While[ Position[a, k] != {}, k++ ]; b = Append[b, k]; a = Append[a, k]; While[ Position[a, k] != {} || !PrimeQ[Plus @@ b + k], k++ ]; a = Append[a, k]]; Do[ f[n], {n, 3, 40}]; a
|
|
CROSSREFS
|
The prime sums (see example) are in A075470.
Sequence in context: A096779 A026262 A026234 this_sequence A071065 A035552 A114862
Adjacent sequences: A073669 A073670 A073671 this_sequence A073673 A073674 A073675
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 11 2002
|
|
|
Search completed in 0.002 seconds
|
