login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A060012 Lesser of irregular twin primes. 1

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 12 05:33 EDT 2020. Contains 336438 sequences. (Running on oeis4.)