|
|
A073672
|
|
Rearrangement of natural numbers such that sum of n (n>1) terms starting from the n-th term (included) is a prime.
|
|
2
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Every 2k-th term is the smallest number which has not been included earlier.
|
|
LINKS
|
|
|
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.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|