%I #6 Oct 05 2024 05:43:23
%S 0,1,1,2,3,4,6,7,10,11,14,15,18,19,20,23,24,27,28,31,35,42,43,46,52,
%T 57,60,62,64,66,81,82,83,86,88,102,103,105,106,109,115,123,128,129,
%U 130,132,143,145,148,149,161,162,167,170,172,179,187,188,193,195,200,203,208
%N Nearest integer to twin-prime pair averages divided by 10.
%t Round[Select[Table[Prime[n] + 1, {n, 314}], PrimeQ[ # + 1] &]/10] (* _James C. McMahon_, Oct 05 2024 *)
%Y Cf. A014574.
%K nonn
%O 1,4
%A _Greg Huber_, Jul 18 2006