cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A095748 Almost maximally asymmetric primes in binary.

This page as a plain text file.
%I A095748 #20 Apr 23 2020 19:28:56
%S A095748 17,31,37,41,47,59,61,67,89,97,103,139,149,163,197,263,269,283,293,
%T A095748 307,353,359,379,389,409,433,439,449,461,499,541,557,607,613,631,659,
%U A095748 727,743,809,829,877,929,941,953,997,1009,1039,1051,1151,1171
%N A095748 Almost maximally asymmetric primes in binary.
%C A095748 Primes p for which A037888(p) = floor((A070939(p)-4)/2). Those numbers contain just two bits mirroring each other, beyond the first and last bits. (All the odd primes without leading zeros begin and end in 1 bits.)
%H A095748 A. Karttunen, J. Moyer: <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>
%e A095748 a(5)=(101111)2. In this case, from left to right, the third bit agrees with the fourth. The prime 53 = (110101)_2 is not a term since the symmetry is limited to the first and last bits.
%o A095748 (PARI) A070939(p) = { return(floor(log(p)/log(2))+1) };
%o A095748 A037888(p)={v=binary(p);s=0;j=#v;for(k=1,#v,s+=abs(v[k]- v[j]);j--);return(s/2);}; forprime(p=3,1171,if(A037888(p)==floor((A070939(p)-4)/2), print1(p,", ")))
%Y A095748 Cf. A095758, A095749, A095743.
%K A095748 nonn,base
%O A095748 1,1
%A A095748 _Antti Karttunen_, Jun 12 2004
%E A095748 Edited by _Washington Bomfim_, Jan 13 2011