The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A210566 Primes not expressed in form n<+>4, where operation <+> defined in A206853. 1
2, 3, 5, 7, 23, 37, 53, 101, 103, 131, 149, 151, 167, 181, 229, 257, 263, 277, 293, 311, 359, 373, 389, 421, 439, 487, 503, 599, 613, 631, 641, 643, 647, 661, 677, 727, 743, 757, 769, 773, 821, 823, 853, 887, 919, 983, 997, 1013, 1031, 1061, 1063 (list; graph; refs; listen; history; text; internal format)
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.
LINKS
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
Sequence in context: A284060 A211682 A100552 * A155873 A362678 A106711
KEYWORD
nonn,base
AUTHOR
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 18 02:23 EDT 2024. Contains 372617 sequences. (Running on oeis4.)