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 A077501 #15 Sep 17 2023 01:29:52
%S A077501 11,23,31,41,53,61,71,83,97,101,113,127,131,149,151,163,173,181,191,
%T A077501 2003,2111,2203,2309,2411,2503,2609,2707,2801,2903,3001,3109,3203,
%U A077501 3301,3407,3511,3607,3701,3803,3907,4001,4111,4201,4327,4409,4507,4603,4703
%N A077501 a(n) = smallest prime greater than a(n-1) and beginning with n.
%C A077501 First 20 terms are the same as that of A030665.
%H A077501 Robert Price, <a href="/A077501/b077501.txt">Table of n, a(n) for n = 1..5000</a>
%H A077501 <a href="/index/Pri#piden">Index entries for primes involving decimal expansion of n</a>
%t A077501 a = {}; Do[AppendTo[a, Function[d, FromDigits@ SelectFirst[ IntegerDigits@ Prime@ Range[PrimePi@ Max@ a + 1, 10^4], And[Length@ # >= Length@ d, Take[#, Length@ d] == d] &]][IntegerDigits@ n]], {n, 47}]; a (* _Michael De Vlieger_, May 24 2016, Version 10 *)
%Y A077501 Cf. A030665.
%K A077501 base,easy,nonn
%O A077501 1,1
%A A077501 _Amarnath Murthy_, Nov 08 2002
%E A077501 Corrected and extended by _Ray Chandler_, Aug 11 2003