A191245 Primes that remain prime if the bit pattern 10 is attached as the most-significant bits to their binary representation.
3, 7, 11, 19, 53, 97, 103, 127, 131, 149, 179, 197, 227, 239, 277, 283, 337, 349, 409, 457, 463, 487, 499, 569, 599, 641, 659, 683, 701, 719, 743, 809, 839, 953, 971, 1013, 1019, 1051, 1093, 1201, 1213, 1237, 1291, 1297, 1303, 1321, 1381, 1423, 1543, 1597, 1621, 1747, 1753, 1783, 1801
Offset: 1
Examples
19 is in the sequence, because 19=10011_2 prefixed with 10_2 is 1010011_2 = 19+62=83 which still is prime.
Programs
-
Mathematica
Select[Prime[Range[300]],PrimeQ[FromDigits[Join[{1,0},IntegerDigits[ #,2]],2]]&] (* Harvey P. Dale, Apr 11 2012 *)
Extensions
Corrected by R. J. Mathar, Jun 03 2011
Comments