|
%I #10 Mar 03 2015 01:00:39
%S 2,3,5,7,11,13,17,19,29,31,37,43,53,59,79,83,89,103,109,113,151,157,
%T 173,191,193,211,227,233,269,277,281,307,311,337,347,349,359,367,379,
%U 389,401,409,419,421,431,457,461,487,491,499,523,569,599,607,617,653,659
%N Primes p which become a prime q under transformation of inner bits of binary representation in A092569. In binary representation of p, transformation of inner bits, 1 <-> 0, gives binary representation of q.
%e 307 and 461 are terms because 307_10 = 100110011_2, transformation of inner bits gives 100110011_2 -> 111001101_2 = 461_10.
%o (PARI)T(p)={pow2=2;v=binary(p);L=#v-1;forstep(k=L,2,-1,if(v[k],p-=pow2,p+=pow2);pow2*=2);return(p)};
%o forprime(p=2,659,if(isprime(T(p)),print1(p,", ")))
%o \\ _Washington Bomfim_, Jan 18 2011
%Y Cf. A092569.
%K base,nonn,easy
%O 1,1
%A _Zak Seidov_, Feb 28 2004
|
