A027701 Primes with even number of 1's in binary expansion such that next prime also has even number of 1's.

3, 23, 83, 139, 257, 263, 277, 337, 347, 349, 353, 383, 467, 503, 593, 683, 811, 839, 853, 887, 977, 1091, 1093, 1097, 1217, 1223, 1283, 1303, 1307, 1381, 1399, 1427, 1429, 1433, 1487, 1499, 1511, 1553, 1601, 1613, 1619, 1723, 1811, 1847, 1871, 1879

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1001 (offset adapted by Georg Fischer, Jan 31 2019)

Mathematica

Prime[#]&/@Flatten[Position[Partition[Table[DigitCount[n, 2, 1], {n, Prime[ Range[300]]}], 2, 1], _?(EvenQ[First[#]]&&EvenQ[Last[#]]&), {1}, Heads-> False]] (* Harvey P. Dale, Aug 15 2013 *)

Crossrefs

Sequence in context: A196649 A363170 A357738 * A201482 A032017 A197453

Adjacent sequences: A027698 A027699 A027700 * A027702 A027703 A027704

Keyword

nonn,easy

Author

N. J. A. Sloane.

Extensions

More terms from Erich Friedman.

Offset changed by Michel Marcus, Mar 29 2018

Status

approved