A175329 a(n) = bitwise OR of prime(n) and prime(n+1).

3, 7, 7, 15, 15, 29, 19, 23, 31, 31, 63, 45, 43, 47, 63, 63, 63, 127, 71, 79, 79, 95, 91, 121, 101, 103, 111, 111, 125, 127, 255, 139, 139, 159, 151, 159, 191, 167, 175, 191, 183, 191, 255, 197, 199, 215, 223, 255, 231, 237, 239, 255, 251, 507, 263, 271, 271, 287

Offset

1,1

Comments

Read each binary representation of the primes from right to left and then OR respective digits to form the binary equivalent of each term of this sequence.

Links

Rémy Sigrist, Table of n, a(n) for n = 1..10000

Wikipedia, Bitwise operation

Maple

read("transforms") ; A175329 := proc(n) ORnos(ithprime(n), ithprime(n+1)) ; end proc: seq(A175329(n), n=1..60) ; # R. J. Mathar, Apr 15 2010
# second Maple program:
a:= n-> Bits[Or](ithprime(n), ithprime(n+1)):
seq(a(n), n=1..70);  # Alois P. Heinz, Apr 16 2020

Mathematica

A175329[n_]:=BitOr[Prime[n], Prime[n+1]]; Array[A175329, 100] (* Paolo Xausa, Oct 13 2023 *)
BitOr@@#&/@Partition[Prime[Range[60]], 2, 1] (* Harvey P. Dale, Mar 01 2024 *)

Prog

(PARI) a(n) = bitor(prime(n), prime(n+1)); \\ Michel Marcus, Apr 20 2020

Crossrefs

Cf. A000040, A175330 (bitwise AND).

Cf. A086799 (bitwise OR of n and n-1)).

Sequence in context: A118259 A060845 A059478 * A081218 A240422 A130003

Adjacent sequences: A175326 A175327 A175328 * A175330 A175331 A175332

Keyword

base,nonn

Author

Leroy Quet, Apr 07 2010

Extensions

More terms from R. J. Mathar, Apr 15 2010

Status

approved