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 A103810 #30 Feb 16 2025 08:32:56
%S A103810 9887,6563,8117,7207,9391,3911,8807,8689,2663,5443,3389,5939,6131,
%T A103810 1319,2087,6689,2221,6269,2963,9631,1361,2203,4547,9241,3449,8467,
%U A103810 7433,4339,4877,7499,9887,4007,6521,7057,7517,5179,7883,7589,7621,6217,1117,1777
%N A103810 Primes from merging of 4 successive digits in decimal expansion of the Golden Ratio, (1+sqrt(5))/2.
%C A103810 Leading zeros are not permitted, so each term is 4 digits in length. - _Harvey P. Dale_, Oct 23 2011
%H A103810 Vincenzo Librandi, <a href="/A103810/b103810.txt">Table of n, a(n) for n = 1..1000</a>
%H A103810 Simon Plouffe, <a href="http://www.gutenberg.org/ebooks/634">Expansion of the Golden Ratio</a> done to 20,000 digits as part of project Gutenberg.
%H A103810 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/GoldenRatio.html">Golden Ratio</a>.
%t A103810 With[{len=4},FromDigits/@Select[Partition[RealDigits[GoldenRatio,10, 1000][[1]],len,1],PrimeQ[FromDigits[#]] && IntegerLength[ FromDigits[#]] == len&]] (* _Harvey P. Dale_, Oct 23 2011 *)
%Y A103810 Cf. A001622.
%K A103810 nonn,base
%O A103810 1,1
%A A103810 Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
%E A103810 Offset changed from 0 to 1 by _Vincenzo Librandi_, Apr 22 2013