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 A051954 #17 Oct 14 2021 15:58:28 %S A051954 3,4,5,6,8,9,11,22,88,232,272,303,333,383,434,454,555,787,797,848,999, %T A051954 1331,3663,6666,10201,14041,15951,17271,21912,22122,24442,26662,33433, %U A051954 35053,40504,40804,44344,44644,44844,45754,55955,67976,72227,72627 %N A051954 a(n) = smallest palindrome > a(n-1) such that a(1)*a(2)*...*a(n) - 1 is a prime. %H A051954 Harvey P. Dale, <a href="/A051954/b051954.txt">Table of n, a(n) for n = 1..100</a> %t A051954 nxt[{p_,a_}]:=Module[{k=a+1},While[!PalindromeQ[k]||!PrimeQ[p*k-1],k++];{p*k,k}]; NestList[nxt,{3,3},50][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 22 2021 *) %Y A051954 Cf. A051896, A051934. %Y A051954 Subsequence of A002113. %K A051954 nice,nonn,base %O A051954 1,1 %A A051954 _Felice Russo_, Dec 21 1999