OFFSET
3,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 3..10000
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