The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A096694 Lesser of twin balanced primes (A090403). 0
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS 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 A198245 Adjacent sequences:  A096691 A096692 A096693 * A096695 A096696 A096697 KEYWORD nonn AUTHOR Robert G. Wilson v, Jun 28 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 3 20:29 EDT 2020. Contains 333199 sequences. (Running on oeis4.)