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