A086104 Primes appearing as concatenation of the last digit of Prime[A086101(n)] and the first digit of Prime[A086101(n)+1].
23, 71, 11, 31, 71, 13, 17, 37, 71, 11, 31, 71, 31, 71, 11, 71, 11, 71, 31, 71, 31, 11, 11, 31, 71, 73, 13, 73, 13, 73, 73, 73, 17, 17, 97, 97, 37, 97, 37, 17, 17, 97, 37, 79, 79, 19, 79, 19, 79, 79, 19, 79, 19, 71, 31, 11, 11, 31, 11, 11, 31, 71, 11, 31, 71, 31, 71, 31, 11
Offset: 1
Crossrefs
Cf. A086101.
Programs
-
Mathematica
Select[Table[FromDigits[{IntegerDigits[Prime[n]][[-1]],IntegerDigits[Prime[n+1]][[1]]}], {n,300}],PrimeQ] (* Zak Seidov, Oct 15 2009 *)
Comments