OFFSET
1,1
COMMENTS
Or primes p such that, for any nonnegative integer n<p with the Hamming distance D(n,p)=4, there exists an integer m in the interval (n,p) with D(n,m)=4.
MATHEMATICA
hammingDistance[a_, b_] := Count[IntegerDigits[BitXor[a, b], 2], 1]; (* binary Hamming distance *) vS[a_, b_] := NestWhile[#+1&, a, hammingDistance[a, #] =!= b&]; (* vS[a_, b_] is the least c>=a, such that the binary Hamming distance D(a, c)=b. vS[a, b] is Vladimir's a<+>b *) A210566 = Map[Prime[#]&, Complement[Range[Max[#]], #]&[Map[PrimePi[#]&, Union[Map[#[[2]]&, Cases[Map[{PrimeQ[#], #}&[vS[#, 4]]&, Range[7000]], {True, _}]]]]]] (* Peter J. C. Moses, Apr 02 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, Mar 22 2012
STATUS
approved