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 A048400 #16 Mar 01 2023 10:56:14
%S A048400 2,3,5,7,41,47,14741,14747,74747,1414741,1474141,7414741,4141414747,
%T A048400 4147414147,14141414141,14141414741,14141474741,14141474747,
%U A048400 14147414741,14147474141,14147474147,14741414747,74141414147,74141414741,74147414741,74741474741,74747414141
%N A048400 Primes with consecutive digits that differ exactly by 3.
%C A048400 All terms with more than a single digit must comprise only the digits 1, 4, and 7, because no number comprising the digits 2, 5, and 8 or the digits 3, 6, and 9 can be prime. - _Harvey P. Dale_, Mar 01 2023
%H A048400 Sean A. Irvine, <a href="/A048400/b048400.txt">Table of n, a(n) for n = 1..1000</a>
%t A048400 Join[{2,3,5,7},Table[Select[FromDigits/@Tuples[{1,4,7},n],PrimeQ[#]&& Union[ Abs[ Differences[ IntegerDigits[ #]]]]=={3}&],{n,11}]//Flatten] (* _Harvey P. Dale_, Mar 01 2023 *)
%Y A048400 Cf. A033081, A048398, A048399, A048401, A048402, A048403, A048404, A048405.
%K A048400 nonn,base
%O A048400 1,1
%A A048400 _Patrick De Geest_, Apr 15 1999
%E A048400 More terms from _Naohiro Nomoto_, Jul 28 2001
%E A048400 More terms from _Sean A. Irvine_, Jun 15 2021