A347344 Positive integers k such that k with the first (most significant) digit repeated is prime.
1, 13, 23, 27, 29, 31, 37, 43, 49, 57, 61, 73, 81, 83, 87, 91, 97, 103, 109, 117, 123, 129, 151, 153, 163, 171, 181, 187, 193, 203, 207, 213, 221, 237, 239, 243, 251, 267, 269, 273, 281, 287, 293, 297, 301, 307, 313, 319, 323, 329, 331, 343, 347, 359, 361
Offset: 1
Examples
27 is a term because 227 is prime.
Links
- Michael S. Branicky, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
upto=500;Select[Range[1,upto,2],PrimeQ[FromDigits[Join[{First[d=IntegerDigits[#]]},d]]]&]
-
PARI
isok(k) = my(d=digits(k)); isprime(eval(fromdigits(concat(d[1], d)))); \\ Michel Marcus, Sep 09 2021
-
Python
from sympy import isprime def ok(n): s = str(n); return isprime(int(s[0] + s)) print(list(filter(ok, range(362)))) # Michael S. Branicky, Aug 27 2021
Comments