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 A166582 #20 Nov 01 2022 15:25:02
%S A166582 4441,4447,14447,14449,24443,44417,44449,44453,44483,44491,44497,
%T A166582 54443,54449,74441,74449,84443,84449,94441,94447,124447,134443,144407,
%U A166582 144409,144413,144427,144439,144451,144461,144479,144481,144497,164443,164447
%N A166582 Primes containing the string 444.
%H A166582 Vincenzo Librandi, <a href="/A166582/b166582.txt">Table of n, a(n) for n = 1..1000</a>
%F A166582 a(n) ~ n log n. - _Charles R Greathouse IV_, Nov 01 2022
%t A166582 p444Q[n_] := Module[{idn = IntegerDigits[n]}, MemberQ[Partition[idn, 3, 1], {4, 4, 4}]]; Select[Prime[Range[20000]], p444Q] (* _Vincenzo Librandi_ Sep 14 2012 *)
%t A166582 Select[Prime[Range[16000]],SequenceCount[IntegerDigits[#],{4,4,4}]>0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 15 2018 *)
%Y A166582 Cf. A166571-A166573, A166579-A166581.
%K A166582 nonn,base
%O A166582 1,1
%A A166582 _Vincenzo Librandi_, Nov 01 2009
%E A166582 Corrected (144491 replaced by 144497) by _R. J. Mathar_, Nov 30 2009