A175329 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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