A178943 Primes that are not balanced primes (see A006562).

2, 3, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 163, 167, 179, 181, 191, 193, 197, 199, 223, 227, 229, 233, 239, 241, 251, 269, 271, 277, 281, 283, 293

Offset: 1

Author

Paul Muljadi, Dec 30 2010

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Complement with respect to A000040 gives A006562.

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

Programs

Haskell

a178943 n = a178943_list !! (n-1)
a178943_list = 2 : h a000040_list where
   h (p:qs@(q:r:ps)) = if 2 * q /= (p + r) then q : h qs else h qs
-- Reinhard Zumkeller, May 09 2013

Mathematica

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