A257717 a(n) is the smallest odd-indexed prime not included earlier such that a(n) + a(n-1) + a(n-2) is a prime, beginning with a(1) = 5 and a(2) = 11.

5, 11, 31, 17, 23, 67, 41, 59, 73, 47, 103, 83, 97, 127, 149, 157, 137, 167, 283, 191, 179, 109, 211, 227, 313, 233, 197, 331, 241, 257, 379, 347, 307, 367, 389, 277, 353, 401, 439, 269, 509, 499, 419, 449, 571, 431, 487, 563, 461, 547, 523, 587, 599, 661, 607, 761, 631, 677

Offset

1,1

Comments

Conjecture: The union of this sequence and A257716 is A065091.

Links

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

Example

a(3) = 31 since a(1)+a(2) is 16 and 31, whose index equals 11, is the first odd-indexed prime which meets the criteria. 16 + 7 = 23, a prime, but 7 is the 4th prime and therefore cannot be used.

Mathematica

f[s_List] := Block[{p = s[[-2]] + s[[-1]], q = 17}, While[ !PrimeQ[p + q] || MemberQ[s, q], q = NextPrime[q, 2]]; Append[s, q]]; Nest[f, {5, 11}, 56]

Prog

(PARI) v=[5, 11]; n=1; while(n<100, p=prime(2*n-1); if(isprime(v[#v]+v[#v-1]+p)&&!vecsearch(vecsort(v), p), v=concat(v, p); n=0); n++); v \\ Derek Orr, May 13 2015

Crossrefs

Cf. A031368, A073653, A257716, A257718.

Sequence in context: A266820 A335455 A114688 * A192194 A239842 A092963

Adjacent sequences: A257714 A257715 A257716 * A257718 A257719 A257720

Keyword

nonn

Author

Robert G. Wilson v, May 05 2015

Status

approved