A096694 - OEIS

%I #2 Mar 30 2012 17:31:04

%S 149,227,419,1997,3329,3671,5501,6449,13691,15887,21647,22481,26711,

%T 27749,31247,32411,32831,37547,39227,41759,44027,47777,49121,50261,

%U 53231,54539,54917,55217,64877,69149,71411,74717,90821,93239,107069

%N Lesser of twin balanced primes (A090403).

%t f[n_] := f[n] = Block[{c = 0, k = 1, p = Prime[n], s = Plus @@ Table[ Prime[i], {i, n - 1, n + 1}]}, While[k != n - 1, If[s == (2k + 1)p, c++ ]; k++; s = s + Prime[n - k] + Prime[n + k]]; c]; p = Prime[ Select[ Range[2, 22456], f[ # ] != 0 &]]; Transpose[ Select[ Partition[p, 2, 1], #[[1]] + 2 == #[[2]] &]][[1]]

%Y Cf. A090403.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Jun 28 2004