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 A067928 #13 Jun 03 2025 02:28:57
%S A067928 6455,6456,6457,6459,6460,6466
%N A067928 Numbers k such that the digits of the k-th prime begin with k.
%C A067928 The next term is greater than 4*10^41. - _Robert Gerbicz_, Sep 05 2002
%e A067928 Prime(6466) is 64661, which begins with 6466, so 6466 is a term of the sequence.
%t A067928 (*returns true if a begins with b, false o.w.*) f[a_, b_] := Module[{c, d, e, g, h, i, r}, r = False; c = ToString[a]; d = ToString[b]; g = StringPosition[c, d]; h = Length[g]; If[h > 0, i = g[[h]]; If[i[[1]] == 1, r = True]]; r]; Do[If[f[Prime[n], n], Print[n]], {n, 1, 10^5} ]
%t A067928 Select[Range[7000],Take[IntegerDigits[Prime[#]],IntegerLength[#]] == IntegerDigits[ #]&] (* _Harvey P. Dale_, Mar 05 2016 *)
%K A067928 base,more,nonn
%O A067928 1,1
%A A067928 _Joseph L. Pe_, Feb 22 2002