%I #20 Jul 21 2023 19:19:02
%S 139,149,181,191,241,251,283,293,337,347,409,419,421,431,547,557,577,
%T 587,631,641,691,701,709,719,787,797,811,821,829,839,887,907,919,929,
%U 1021,1031,1039,1049,1051,1061,1153,1163,1171,1181,1249,1259,1399,1409,1471,1481,1627,1637,1657,1699,1709
%N Primes ending with the same decimal digit as the previous or next prime.
%H Charles R Greathouse IV, <a href="/A270310/b270310.txt">Table of n, a(n) for n = 1..10000</a>
%H Robert J. Lemke Oliver and Kannan Soundararajan, <a href="http://arxiv.org/abs/1603.03720">Unexpected biases in the distribution of consecutive primes</a>, arXiv:1603.03720 [math.NT], 2016.
%F a(n) = prime(A270311(n)).
%t Select[Prime@ Range@ 300, Function[k, Or[k == Mod[NextPrime@ #, 10], k == Mod[NextPrime[#, -1], 10]]]@ Mod[#, 10] &] (* _Michael De Vlieger_, Mar 15 2016 *)
%t Select[Partition[Prime[Range[300]],3,1],Mod[#[[2]],10]==Mod[#[[1]],10]||Mod[#[[2]],10]== Mod[#[[3]],10]&][[;;,2]] (* _Harvey P. Dale_, Jul 21 2023 *)
%o (PARI) is(n)=isprime(n) && ((nextprime(n+1)-n)%10==0 || (n-precprime(n-1))%10==0) \\ _Charles R Greathouse IV_, Mar 15 2016
%Y Cf. A270311.
%K base,easy,nonn
%O 1,1
%A _Francois Alcover_, Mar 15 2016
%E a(15)-a(55) from _Charles R Greathouse IV_, Mar 15 2016