A205511 Lesser of the n-th pair of Hamming twin primes.
2, 5, 17, 19, 29, 41, 43, 67, 97, 101, 137, 149, 163, 193, 197, 269, 281, 307, 313, 359, 379, 389, 401, 449, 457, 461, 499, 521, 569, 617, 641, 643, 673, 739, 743, 769, 809, 821, 857, 859, 881, 883, 907, 929, 937, 983, 1009, 1049, 1061, 1109, 1229, 1277, 1289, 1297
Offset: 1
Links
- M. F. Hasler, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Prime[Range[211]],Count[IntegerDigits[BitXor[#,NextPrime[#]],2],1]==1 &] (* Jayanta Basu, May 26 2013 *)
-
PARI
n=0;for(i=1,10^4,until(A205510(n++)==1,);write("c:/temp/b205511.txt",i" "prime(n))) \\ M. F. Hasler, Jan 29 2012
Extensions
Terms from a(11) were added by Peter J. C. Moses
Comments