A205302 Greater of Hamming's twin primes.
3, 7, 19, 23, 31, 43, 47, 71, 101, 103, 139, 151, 167, 197, 199, 271, 283, 311, 317, 367, 383, 397, 409, 457, 461, 463, 503, 523, 571, 619, 643, 647, 677, 743, 751, 773, 811, 823, 859, 863, 883, 887, 911, 937, 941, 991, 1013, 1051, 1063, 1117, 1231, 1279, 1291, 1301, 1303, 1483, 1487
Offset: 1
Links
- M. F. Hasler, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Partition[Prime[Range[250]], 2, 1], DigitCount[BitXor[First[#], Last[#]], 2, 1] == 1 &] [[;; , 2]] (* Amiram Eldar, Aug 06 2023 *)
-
PARI
n=0;for(i=1,80,until(A205510(n++)==1,);print1(prime(n+1)",")) \\ M. F. Hasler, Jan 29 2012
Extensions
a(10)-a(57) from Peter J. C. Moses, Jan 28 2012
Values verified by M. F. Hasler, Jan 29 2012
Comments