A032710 Numbers k such that k prefixed by '1' and followed by '3' is prime.
0, 1, 6, 7, 9, 10, 12, 15, 16, 19, 21, 22, 28, 30, 37, 42, 43, 45, 48, 49, 52, 54, 55, 58, 61, 66, 69, 72, 73, 75, 78, 82, 87, 91, 93, 97, 99, 100, 108, 109, 111, 117, 121, 124, 127, 135, 138, 139, 142, 144, 148, 150, 159, 163, 174, 178, 181, 183, 186, 190, 192
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[0,200],PrimeQ[FromDigits[Join[{1},IntegerDigits[#],{3}]]]&] (* Harvey P. Dale, Dec 18 2012 *)
Extensions
Offset changed by Andrew Howroyd, Aug 13 2024