login
A114227
Smallest odd prime q such that 2q + prime(n) is prime.
17
3, 3, 3, 3, 3, 5, 3, 7, 3, 3, 3, 5, 3, 3, 7, 3, 3, 13, 3, 5, 3, 7, 3, 3, 3, 3, 11, 7, 5, 3, 7, 5, 7, 3, 3, 5, 3, 3, 7, 5, 3, 3, 7, 17, 11, 3, 3, 5, 3, 19, 5, 3, 3, 3, 7, 3, 3, 13, 5, 7, 3, 3, 17, 7, 3, 5, 3, 5, 3, 7, 3, 3, 5, 3, 37, 11, 19, 5, 7, 5, 13, 3, 5, 3, 7, 3, 3, 23, 37, 31, 11, 43, 5, 3, 7, 13, 17
OFFSET
3,1
LINKS
MATHEMATICA
Table[p1 = Prime[n1]; n2 = 2; p2 = 3; While[ cp = p1 + 2*p2; ! PrimeQ[cp], n2++; p2 = Prime[n2]]; p2, {n1, 3, 202}]
PROG
(Haskell)
a114227 n = head [p | p <- tail a000040_list,
a010051' (2 * p + a000040 n) == 1]
-- Reinhard Zumkeller, Oct 29 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Lei Zhou, Nov 18 2005
STATUS
approved