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!)
A175333 a(n) is the smallest prime such that (binary a(n)) OR (binary prime(n)) is one less than a power of 2. 1

%I

%S 3,2,2,2,5,2,31,13,11,2,2,31,23,23,17,11,5,2,61,59,127,53,47,47,31,31,

%T 29,23,19,31,2,127,127,127,107,107,103,127,89,83,79,79,67,127,59,59,

%U 47,37,29,31,23,17,31,5,8191,251,251,241,239,239,229,223,223,223,199,199

%N a(n) is the smallest prime such that (binary a(n)) OR (binary prime(n)) is one less than a power of 2.

%C By a(n) "OR" prime(n), OR the respective digits, reading right to left, of a(n) and the n-th prime written in binary.

%C Each digit of binary a(n) OR'ed with the respective (reading right to left) digit of binary prime(n) is 1.

%e 19, the 8th prime, in binary is 10011. The smallest number that when written in binary and OR'ed with 10011, then it is a power of 2 minus 1, is 12 (1100 in binary). But 12 is not a prime. The next larger number that works, which is a prime, is 13 (1101 in binary). OR'ing the respective digits of 10011 and 01101 (with appropriate leading 0), from right to left, is: 1 OR 1 = 1; 1 OR 0 = 1; 0 OR 1 = 1; 0 OR 1 = 1; and 1 OR 0 = 1. Since all pairs of respective digits OR'ed equal 1 (and the resulting binary number represents a power of 2 minus 1), then a(8) = 13.

%p read("transforms");

%p A175333 := proc(n) local i,p,a ; for i from 1 do p := ithprime(i) ; a := ORnos(p,ithprime(n)) +1 ; if numtheory[factorset](a) = {2} then return p; end if; end do: end proc:

%p seq(A175333(n),n=1..80) ; # _R. J. Mathar_, May 28 2010

%K base,nonn

%O 1,1

%A _Leroy Quet_, Apr 14 2010

%E More terms from _R. J. Mathar_, May 28 2010

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 9 04:39 EDT 2020. Contains 336319 sequences. (Running on oeis4.)