login
Primes p for which A037888(p) = 2, i.e., primes whose binary expansion needs flips of just two bits to become palindrome.
3

%I #18 Dec 05 2023 01:39:35

%S 43,53,71,79,83,101,109,113,139,149,163,197,263,269,283,293,307,353,

%T 359,379,389,409,433,439,449,461,499,523,547,571,593,619,643,673,691,

%U 751,773,811,821,839,857,863,881,887,907,983,1013,1031,1049,1063

%N Primes p for which A037888(p) = 2, i.e., primes whose binary expansion needs flips of just two bits to become palindrome.

%H Robert Israel, <a href="/A095744/b095744.txt">Table of n, a(n) for n = 1..10000</a>

%H Antti Karttunen and J. Moyer, <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>

%p f:= proc(n) local L,i;

%p L:= convert(n,base,2);

%p add(abs(L[i]-L[-i]),i=1..floor(nops(L)/2))

%p end proc:

%p select(t -> f(t)=2, [seq(ithprime(i),i=1..1000)]); # _Robert Israel_, Dec 04 2023

%Y The third row of array A095749. Cf. A095754.

%K nonn,base

%O 1,1

%A _Antti Karttunen_, Jun 12 2004