A205649 -id:A205649 - cp's OEIS frontend

A276133 Exponent of highest power of 2 dividing the product of the composite numbers between the n-th prime and the (n+1)-st prime.

0, 2, 1, 4, 2, 5, 1, 3, 6, 1, 8, 4, 1, 3, 7, 5, 2, 8, 3, 3, 4, 5, 6, 9, 3, 1, 4, 2, 5, 11, 8, 6, 1, 10, 1, 6, 7, 3, 6, 6, 2, 8, 6, 3, 1, 12, 10, 6, 2, 4, 4, 4, 8, 11, 4, 6, 1, 7, 4, 1, 11, 13, 3, 3, 3, 15, 7, 8, 2, 6, 4, 7, 7, 5, 3, 10, 7, 5, 7

Offset: 1

Juri-Stepan Gerasimov, Aug 29 2016

Robert Israel, Table of n, a(n) for n = 1..10000

Supersequence of A205649 (Hamming distance between twin primes).
Cf. A000040, A007814, A061214.
First differences of A080085.

A:= Vector(100): q:= 2:
for n from 1 to 100 do
  p:= q; q:= nextprime(q);
  t:= 0;
  for i from p+1 to q-1 do t:= t + padic:-ordp(i,2) od;
  A[n]:= t
od:
convert(A,list); # Robert Israel, Apr 11 2021

IntegerExponent[#,2]&/@(Times@@Range[#[[1]]+1,#[[2]]-1]&/@Partition[ Prime[ Range[ 80]],2,1]) (* Harvey P. Dale, Aug 12 2024 *)

a(n) = valuation(prod(k=prime(n)+1, prime(n+1)-1, k), 2); \\ Michel Marcus, Aug 31 2016

a(n) = my(p=prime(n+1),q=prime(n)); p-hammingweight(p) - (q-hammingweight(q)); \\ Kevin Ryde, Apr 11 2021

from sympy import prime
def A276133(n): return (p:=prime(n+1)-1)-p.bit_count()-(q:=prime(n))+q.bit_count() # Chai Wah Wu, Jul 10 2022

a(n) = A007814(A061214(n)).

a(n+1) = Sum_{k = A000040(n+1)..A000040(n+2)} A007814(k).

a(16) corrected by Robert Israel, Apr 11 2021

A207472 Let a(1) = 5. For n > 1, a(n) is the least number greater than a(n-1) such that the Hamming distance D(a(n-1),a(n)) = 5.

Original entry on oeis.org

5, 26, 33, 62, 66, 93, 96, 127, 135, 152, 163, 188, 192, 223, 225, 254, 270, 273, 294, 313, 320, 351, 353, 382, 390, 409, 418, 445, 449, 478, 480, 511, 543, 545, 574, 578, 605, 608, 639, 647, 664, 675, 700, 704, 735, 737, 766, 782, 785, 806, 825, 832, 863, 865

Offset: 1

Vladimir Shevelev, Feb 18 2012

Odious and evil terms are alternating (cf. A000069, A001969).

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000069, A000225, A001969, A205509, A205510, A205511, A205302, A205649, A205533, A122565, A206852, A206853, A206960, A207016, A207017.

a[1] = 5; a[n_] := a[n] = Module[{k = a[n - 1], m = a[n-1] + 1}, While[DigitCount[BitXor[k, m], 2, 1] != 5, m++]; m]; Array[a, 100] (* Amiram Eldar, Aug 06 2023 *)

A209332 a(n) is the minimal positive number k such that n<+>k is prime or 0 if no such number exists (operation <+> defined in A206853).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 1, 3, 5, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 0, 3, 1, 1, 1, 1, 2, 4, 0, 3, 2, 1, 0, 4, 1, 1, 1, 1, 1, 2, 1, 1, 0, 5, 0, 3, 2, 1, 0, 7, 2, 2, 1, 1, 2, 1, 0, 8, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 0, 7, 1, 2, 1, 1, 3, 2, 1, 1, 0, 3, 0, 4, 3

Offset: 1

Vladimir Shevelev, Mar 06 2012

Numbers n for which a(n) = 1 form sequence A208982.
a(n) = 0 for n = 25, 33, 37, 47,... (A209333).
A simple sufficient condition for a(n) = 0 (which is proved by induction) is that n<+>k is not prime up to the moment that n<+>k is even and n<+>(k+1)-n<+>k = 2^t, where t >= m+1 and m defined by the condition 2^m <= n < 2^(m+1).
Conjecture: for even n, a(n) > 0.

Cf. A205509, A205510, A205511, A205302, A205649, A205533, A122565, A206852, A206853, A206960, A209085, A208982, A209085, A209333.

A210566 Primes not expressed in form n<+>4, where operation <+> defined in A206853.

Original entry on oeis.org

2, 3, 5, 7, 23, 37, 53, 101, 103, 131, 149, 151, 167, 181, 229, 257, 263, 277, 293, 311, 359, 373, 389, 421, 439, 487, 503, 599, 613, 631, 641, 643, 647, 661, 677, 727, 743, 757, 769, 773, 821, 823, 853, 887, 919, 983, 997, 1013, 1031, 1061, 1063

Offset: 1

Vladimir Shevelev and Peter J. C. Moses, Mar 22 2012

Or primes p such that, for any nonnegative integer n

Cf. A205509, A205510, A205511, A205302, A205649, A205533, A122565, A206852, A206853, A206960, A208982, A209544, A209554.

hammingDistance[a_, b_] := Count[IntegerDigits[BitXor[a, b], 2], 1]; (* binary Hamming distance *) vS[a_,b_] := NestWhile[#+1&, a, hammingDistance[a,#] =!= b&]; (* vS[a_,b_] is the least c>=a,such that the binary Hamming distance D(a,c)=b. vS[a,b] is Vladimir's a<+>b *) A210566 = Map[Prime[#]&, Complement[Range[Max[#]], #]&[Map[PrimePi[#]&, Union[Map[#[[2]]&, Cases[Map[{PrimeQ[#],#}&[vS[#,4]]&, Range[7000]],{True,}]]]]]] (* _Peter J. C. Moses, Apr 02 2012 *)

Previous Showing 11-14 of 14 results.

cp's OEIS Frontend

A276133 Exponent of highest power of 2 dividing the product of the composite numbers between the n-th prime and the (n+1)-st prime.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Python

Formula

Extensions

A207472 Let a(1) = 5. For n > 1, a(n) is the least number greater than a(n-1) such that the Hamming distance D(a(n-1),a(n)) = 5.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A209332 a(n) is the minimal positive number k such that n<+>k is prime or 0 if no such number exists (operation <+> defined in A206853).

Views

Author

Keywords

Comments

Crossrefs

A210566 Primes not expressed in form n<+>4, where operation <+> defined in A206853.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica