A060012 Lesser of irregular twin primes.

101, 461, 617, 809, 1151, 1619, 1787, 1877, 2381, 2789, 3581, 3851, 4001, 4049, 4259, 4637, 5099, 5441, 5477, 5639, 6449, 6569, 7211, 7487, 7949, 8087, 8219, 8597, 8627, 8837, 9011, 9041, 9431, 10427, 11117, 11351, 11777, 12239, 13217, 13709, 13721

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

a = 0; Do[p = Prime[ n]; k = 1; While[ 2*k < p - 3 && Mod[ Numerator[ BernoulliB[ 2*k] ], p] != 0, k++ ]; If[ 2*k != p - 3, If[ a + 2 == p, Print[ a] ]; a = p ], {n, 3, 1500}]

Crossrefs

Cf. A000928.

Sequence in context: A031698 A055438 A142692 * A142507 A131697 A153806

Adjacent sequences: A060009 A060010 A060011 * A060013 A060014 A060015

Keyword

nonn

Author

Robert G. Wilson v, Mar 16 2001

Extensions

More terms from Robert G. Wilson v, Apr 01 2005

Status

approved