A098085 - OEIS

%I #7 Jul 26 2015 01:41:22

%S 5,11,13,19,29,31,37,43,53,61,71,79,89,97,101,113,127,131,139,149,157,

%T 163,173,191,199,211,211,223,223,241,263,269,277,293,307,311,331,331,

%U 347,353,367,373,389,397,397,419,439,457,457,463,479,487,499,509,521

%N Primes P(n)+P(n+1)+b(n) = least prime >= P(n)+P(n+1), P(i)=i-th prime, b(n) given in A098084.

%e P(1) + P(2) = 2 + 3 = 5; least prime >= 5 = 5.

%e P(2) + P(3) = 3 + 5 = 8; least prime > 8 = 11.

%e P(3) + P(4) = 5 + 7 = 12; least prime > 12 = 13.

%t f[n_] := Block[{k = 0, p = Prime[n] + Prime[n + 1]}, While[ !PrimeQ[p + k], k++ ]; p + k]; Table[ f[n], {n, 55}] (* _Robert G. Wilson v_, Sep 24 2004 *)

%K easy,nonn

%O 1,1

%A _Pierre CAMI_, Sep 13 2004

%E More terms from _Robert G. Wilson v_, Sep 25 2004