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 A103195 #13 Feb 16 2025 08:32:56
%S A103195 37,711,1317,1923,3741,4347,6771,7983,97101,103107,109113,127131,
%T A103195 163167,193197,223227,229233,277281,307311,313317,349353,379383,
%U A103195 397401,439443,457461,463467,487491,499503,613617,643647,673677,739743,757761,769773
%N A103195 Concatenations of pairs of primes that differ by four.
%H A103195 Chris Caldwell, <a href="http://www.utm.edu/research/primes/lists/small/1000.txt">The First 1,000 Primes</a>.
%H A103195 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CousinPrimes.html">Cousin Primes.</a>
%H A103195 M. Wolf, <a href="http://www.ift.uni.wroc.pl/~mwolf/">On Twin and Cousin Primes.</a>
%F A103195 a(n) = A023200(n) concatenated with A023200(n)+4. - _Jonathan Vos Post_, Mar 19 2005
%e A103195 The primes 3 and 7 differ by four, so the first term is 37.
%t A103195 s = Select[ Prime[ Range[ 140]], PrimeQ[ # + 4] &]; FromDigits /@ Join @@@ IntegerDigits /@ Transpose[{s, s + 4}] (* _Robert G. Wilson v_, Mar 19 2005 *)
%t A103195 Join[{37},FromDigits[Flatten[IntegerDigits/@#]]&/@Select[Partition[ Prime[ Range[ 200]],2,1],#[[2]]-#[[1]]==4&]] (* _Harvey P. Dale_, Sep 26 2016 *)
%K A103195 nonn,base
%O A103195 1,1
%A A103195 _Parthasarathy Nambi_, Mar 18 2005
%E A103195 More terms from _Robert G. Wilson v_, Mar 19 2005