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,1

Links

Table of n, a(n) for n=1..35.

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

Crossrefs

Cf. A090403.

Sequence in context: A142029 A216970 A059223 * A144315 A267490 A365405

Adjacent sequences: A096691 A096692 A096693 * A096695 A096696 A096697

Keyword

nonn

Author

Robert G. Wilson v, Jun 28 2004

Status

approved