A034809 Numbers k such that the concatenation of k and previous_prime(k) is a prime.

4, 5, 9, 10, 16, 24, 33, 36, 42, 46, 51, 53, 56, 59, 63, 66, 67, 69, 75, 76, 78, 81, 87, 96, 102, 106, 108, 111, 114, 116, 123, 125, 129, 130, 135, 137, 144, 145, 147, 148, 153, 156, 159, 170, 171, 177, 179, 180, 184, 187, 190, 192, 195, 196, 198, 207, 211, 214

Offset

1,1

Links

Jon E. Schoenfield, Table of n, a(n) for n = 1..10000 (first 1001 terms from Harvey P. Dale)

Example

k=156 is a term because the largest prime < 156 is 151 and '156151' is a prime.

Mathematica

Select[Range[250], PrimeQ[FromDigits[Join[IntegerDigits[#], IntegerDigits[ NextPrime[ #, -1]]]]]&] (* Harvey P. Dale, Jul 10 2017 *)

Prog

(Python)
from sympy import isprime, prevprime
def ok(n): return isprime(int(str(n) + str(prevprime(n))))
print(list(filter(ok, range(3, 215)))) # Michael S. Branicky, Apr 05 2021

Crossrefs

Cf. A034808-A034821.

Sequence in context: A189889 A329451 A308578 * A336900 A096808 A067261

Adjacent sequences: A034806 A034807 A034808 * A034810 A034811 A034812

Keyword

nonn,base

Author

Patrick De Geest, Oct 15 1998

Status

approved