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