A096694 Lesser of twin balanced primes (A090403).

149, 227, 419, 1997, 3329, 3671, 5501, 6449, 13691, 15887, 21647, 22481, 26711, 27749, 31247, 32411, 32831, 37547, 39227, 41759, 44027, 47777, 49121, 50261, 53231, 54539, 54917, 55217, 64877, 69149, 71411, 74717, 90821, 93239, 107069

Offset: 1

Author

Robert G. Wilson v, Jun 28 2004

Keywords

• nonn

Crossrefs

Cf. A090403.

Programs

Mathematica

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]]