A075470 Primes arising from the rearrangement of the natural numbers such that sum of n (n>1) terms starting from the n-th term (included) is a prime (A073672).

2, 5, 13, 23, 37, 53, 71, 97, 131, 157, 191, 223, 263, 307, 347, 383, 431, 467, 521, 587, 653, 709, 787, 853, 937, 1009, 1087, 1153, 1237, 1327, 1423, 1511, 1613, 1709, 1823, 1931, 2053, 2161, 2269, 2377, 2503, 2617, 2749, 2879, 3011, 3137, 3299, 3449, 3613

Offset

1,1

Links

Table of n, a(n) for n=1..49.

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, 50}]; Table[ Plus @@ Take[a, {n, 2n - 1}], {n, 1, 50}]

Crossrefs

Cf. A073672.

Sequence in context: A298991 A046696 A102719 * A049779 A281906 A256491

Adjacent sequences: A075467 A075468 A075469 * A075471 A075472 A075473

Keyword

nonn

Author

Robert G. Wilson v, Sep 18 2002

Status

approved