%I #7 Mar 06 2019 07:00:51

%S 101,461,617,809,1151,1619,1787,1877,2381,2789,3581,3851,4001,4049,

%T 4259,4637,5099,5441,5477,5639,6449,6569,7211,7487,7949,8087,8219,

%U 8597,8627,8837,9011,9041,9431,10427,11117,11351,11777,12239,13217,13709,13721

%N Lesser of irregular twin primes.

%H Amiram Eldar, <a href="/A060012/b060012.txt">Table of n, a(n) for n = 1..10000</a>

%t 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}]

%Y Cf. A000928.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Mar 16 2001

%E More terms from _Robert G. Wilson v_, Apr 01 2005