A032708 Numbers k such that k prefixed by '8' and followed by '1' is prime.
1, 2, 8, 10, 11, 16, 17, 19, 22, 23, 29, 31, 43, 46, 50, 52, 58, 64, 68, 73, 74, 76, 82, 83, 86, 94, 95, 97, 100, 103, 104, 107, 110, 113, 118, 128, 133, 137, 140, 142, 155, 161, 167, 170, 176, 190, 193, 197, 202, 203, 205, 214, 217, 223, 224, 226, 230, 235
Offset: 1
Programs
-
Mathematica
Select[Range[250],PrimeQ[FromDigits[Join[{8}, IntegerDigits[#],{1}]]]&] (* Harvey P. Dale, Mar 24 2011 *)
Extensions
Offset changed by Andrew Howroyd, Aug 11 2024
Comments