This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A054211 #23 Jan 15 2023 01:08:37
%S A054211 4,10,22,24,34,42,58,70,78,88,100,102,108,112,114,124,148,154,160,172,
%T A054211 180,192,198,202,208,210,214,238,244,262,264,268,270,282,294,300,304,
%U A054211 312,328,330,334,340,342,354,372,384,390,394,412,414,420,424,444,454
%N A054211 Numbers k such that k concatenated with k-1 is prime.
%C A054211 A010051(A127423(a(n))) = 1. - _Reinhard Zumkeller_, Jun 27 2015
%C A054211 All terms are even. - _Michel Marcus_, Oct 14 2016
%H A054211 Reinhard Zumkeller, <a href="/A054211/b054211.txt">Table of n, a(n) for n = 1..10000</a>
%t A054211 ncpQ[{a_,b_}]:=PrimeQ[FromDigits[Flatten[IntegerDigits[{b,a}]]]]; Transpose[ Select[Partition[Range[500],2,1],ncpQ]][[2]] (* _Harvey P. Dale_, Nov 25 2012 *)
%t A054211 Select[Range[500],PrimeQ[#*10^IntegerLength[#-1]+#-1]&] (* _Harvey P. Dale_, Mar 16 2019 *)
%o A054211 (Haskell)
%o A054211 a054211 n = a054211_list !! (n-1)
%o A054211 a054211_list = filter ((== 1) . a010051' . a127423) [1..]
%o A054211 -- _Reinhard Zumkeller_, Jun 27 2015 Jul 15 2012
%o A054211 (PARI) isok(n) = isprime(eval(Str(n, n-1))); \\ _Michel Marcus_, Oct 14 2016
%Y A054211 Cf. A052089, A030457, A030458, A052087, A052088.
%Y A054211 Cf. A010051, A068700 (subsequence), A127423.
%K A054211 nonn,base,nice
%O A054211 1,1
%A A054211 _Patrick De Geest_, Feb 15 2000