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 A163157 #9 May 15 2018 14:45:10
%S A163157 2,3,7,41,1871,4599466948725481982057,153554501132879618787551305057
%N A163157 Primes of the form 1 + some Golden Rectangle Number.
%C A163157 Primes of the form 1+A001654(k) for some k, as actually generated by k=1, 2, 3, 5, 9, 53, 71,....
%C A163157 Also primes of the form Fibonacci(k)*Fibonacci(k+1)+1. - _Colin Barker_, Apr 08 2016
%C A163157 The next term (a(8)) has 1995 digits. - _Harvey P. Dale_, May 15 2018
%t A163157 q=0;lst={};Do[f=Fibonacci[n];If[PrimeQ[f*q+1],AppendTo[lst,f*q+1]];q=f, {n,3*6!}];lst
%t A163157 Select[Times@@@Partition[Fibonacci[Range[100]],2,1]+1,PrimeQ] (* _Harvey P. Dale_, May 15 2018 *)
%o A163157 (PARI) for(k=1, 1000, if(isprime(p=fibonacci(k)*fibonacci(k+1)+1), print1(p, ","))) \\ _Colin Barker_, Apr 08 2016
%Y A163157 Cf. A001654, A000045, A163154, A163155, A163156.
%K A163157 nonn
%O A163157 1,1
%A A163157 _Vladimir Joseph Stephan Orlovsky_, Jul 21 2009
%E A163157 Slightly edited by _R. J. Mathar_, Jul 25 2009