|
%I #49 Aug 06 2023 03:06:02
%S 3,7,19,23,31,43,47,71,101,103,139,151,167,197,199,271,283,311,317,
%T 367,383,397,409,457,461,463,503,523,571,619,643,647,677,743,751,773,
%U 811,823,859,863,883,887,911,937,941,991,1013,1051,1063,1117,1231,1279,1291,1301,1303,1483,1487
%N Greater of Hamming's twin primes.
%C The Hamming distance between a(n) and the previous prime is 1 (cf. A205510).
%H M. F. Hasler, <a href="/A205302/b205302.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Partition[Prime[Range[250]], 2, 1], DigitCount[BitXor[First[#], Last[#]], 2, 1] == 1 &] [[;; , 2]] (* _Amiram Eldar_, Aug 06 2023 *)
%o (PARI) n=0;for(i=1,80,until(A205510(n++)==1,);print1(prime(n+1)",")) \\ _M. F. Hasler_, Jan 29 2012
%Y Cf. A205510, A205511, A205533.
%Y Cf. A001097, A001359, A006512.
%K nonn,base
%O 1,1
%A _Vladimir Shevelev_, Jan 28 2012
%E a(10)-a(57) from _Peter J. C. Moses_, Jan 28 2012
%E Values verified by _M. F. Hasler_, Jan 29 2012
|
