OFFSET
3,1
FORMULA
a(n) = min{x; A096474(x) = 2n} for n = 3, 4, ...
MATHEMATICA
{ta = Table[0, {1300}], tb = Table[0, {1300}], tc = Table[0, {1300}], u = 1}; Do[s = Prime[n + 1] - Prime[n]; If[s == 2, ta[[u]] = Prime[Prime[n + 1]] - Prime[Prime[n]]; tb[[u]] = n; tc[[u]] = Prime[n]; u = u + 1], {n, 1, 10000}]; a[n_] := tc[[FirstPosition[ta, 2 n][[1]]]]; Table[a[n], {n, 3, 40}] (* Jean-François Alcover, Jul 28 2017, using Mathematica code for A096464 *)
PROG
(PARI) a(n) = {forprime(p=3, , if (isprime(p+2) && (prime(2+p)-prime(p) == 2*n), return (p))); p=3; } \\ Michel Marcus, Jul 28 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 23 2004
EXTENSIONS
Name edited by Michel Marcus, Jul 28 2017
a(41)-a(45) from Michel Marcus, Jul 28 2017
STATUS
approved