A290839 a(n) = smallest prime p such that 2p + 2n - 1 is prime.

2, 2, 2, 3, 2, 2, 3, 2, 2, 3, 2, 5, 3, 2, 2, 7, 3, 2, 3, 2, 2, 3, 2, 7, 3, 2, 5, 3, 2, 2, 7, 3, 2, 3, 2, 2, 13, 3, 2, 3, 2, 11, 3, 2, 5, 7, 3, 2, 3, 2, 2, 3, 2, 2, 3, 2, 13, 7, 11, 5, 19, 3, 2, 3, 2, 5, 3, 2, 2, 7, 5, 5, 3, 2, 2, 7, 3, 2, 13, 3, 2, 3, 2, 7, 3, 2

Offset

0,1

Links

Iain Fox, Table of n, a(n) for n = 0..20000

Formula

a(-n) = A290838(n+1). - Iain Fox, Dec 14 2017

Mathematica

Table[j=0; found=False; While[!found, j++; found=PrimeQ[2Prime[j]+2n-1]]; Prime[j], {n, 85}]

Prog

(PARI) a(n) = {my(p=2); while(!isprime(2*p+2*n-1), p = nextprime(p+1)); p; } \\ Michel Marcus, Aug 12 2017

Crossrefs

Cf. A005384, A023204, A023205, A023206, A023207, A171517, A020483, A290838.

Cf. A067076 (indices n at which a(n) = 2).

Sequence in context: A195352 A103507 A219252 * A346651 A085694 A258570

Adjacent sequences: A290836 A290837 A290838 * A290840 A290841 A290842

Keyword

nonn,easy

Author

XU Pingya, Aug 12 2017

Extensions

a(0) prepended by Iain Fox, Dec 14 2017

Status

approved