cp's OEIS Frontend

A112826 Conjectured values of A112825 which are 0.

%I A112826 #17 Mar 13 2023 07:19:43
%S A112826 58,62,82,88,108,112,114,116,118,122,130,140,148,152,162,182,184,196,
%T A112826 198,200,202,212,214,218,240,242,244,250,254,256,258,262,272,282,284,
%U A112826 292,296,298,316,320,322,332,336,340,358,362,366,382,394,400,410,412
%N A112826 Conjectured values of A112825 which are 0.
%C A112826 It is conjectured that there does not exist a Goldbach partition yielding a Goldbach "gap" of n as defined, for n=58,62,82,....
%C A112826 These are the even numbers that do not appear in A112824.
%t A112826 f[n_] := Block[{p = 2, q = n/2}, While[ !PrimeQ[p] || !PrimeQ[n - p], p++ ]; While[ !PrimeQ[q] || !PrimeQ[n - q], q-- ]; q - p];
%t A112826 t = Table[0, {10000}];
%t A112826 Do[a = f[2n]; If[a < 10000 && t[[a/2 + 1]] == 0, t[[a/2 + 1]] = 2n], {n, 2, 10^6}];
%t A112826 Take[ 2*Flatten[ Position[t, 0] - 1], 52]
%Y A112826 Cf. A020481.
%K A112826 nonn
%O A112826 1,1
%A A112826 _Robert G. Wilson v_, Sep 05 2005
%E A112826 Corrected by _T. D. Noe_, Feb 14 2011