%I #10 May 09 2013 10:58:12

%S 2,3,7,11,13,17,19,23,29,31,37,41,43,47,59,61,67,71,73,79,83,89,97,

%T 101,103,107,109,113,127,131,137,139,149,151,163,167,179,181,191,193,

%U 197,199,223,227,229,233,239,241,251,269,271,277,281,283,293

%N Primes that are not balanced primes (see A006562).

%H Reinhard Zumkeller, <a href="/A178943/b178943.txt">Table of n, a(n) for n = 1..10000</a>

%t Transpose[ Select[ Partition[ Prime@ Range@ 65, 3, 1],#[[2]]!=(#[[1]]+#[[3]])/2&]][[2]]

%o (Haskell)

%o a178943 n = a178943_list !! (n-1)

%o a178943_list = 2 : h a000040_list where

%o h (p:qs@(q:r:ps)) = if 2 * q /= (p + r) then q : h qs else h qs

%o -- _Reinhard Zumkeller_, May 09 2013

%Y Complement with respect to A000040 gives A006562.

%Y Union of {2}, A051634 and A051634; A225496 (multiplicative closure).

%K nonn

%O 1,1

%A _Paul Muljadi_, Dec 30 2010