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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

Complement with respect to A000040 gives A006562.

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

Sequence in context: A114600 A088905 A045319 * A038613 A075235 A020634

Adjacent sequences: A178940 A178941 A178942 * A178944 A178945 A178946

Keyword

nonn

Author

Paul Muljadi, Dec 30 2010

Status

approved