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 A065534 #11 Dec 25 2024 17:50:56 %S A065534 5,53,541,5413,54133,541339,5413391,54133921,541339231,5413392311, %T A065534 54133923121,541339231241,5413392312463,54133923124643, %U A065534 541339231246433,5413392312464369,54133923124643743,541339231246437473 %N A065534 a(n) is smallest prime > 10*a(n-1), a(1) = 5. %H A065534 Harry J. Smith, <a href="/A065534/b065534.txt">Table of n, a(n) for n = 1..100</a> %t A065534 NextPrim[n_Integer] := Block[ {k = n + 1}, While[ !PrimeQ[k], k++ ]; Return[k]]; a[1] = 5; a[n_] := NextPrim[ 10*a[n - 1]]; Table[ a[n], {n, 1, 20} ] %t A065534 NestList[NextPrime[10#]&,5,20] (* _Harvey P. Dale_, Dec 25 2024 *) %o A065534 (PARI) { for (n=1, 100, if (n>1, a=nextprime(10*a), a=5); write("b065534.txt", n, " ", a) ) } \\ _Harry J. Smith_, Oct 21 2009 %Y A065534 Cf. A065122. %K A065534 nonn %O A065534 1,1 %A A065534 _Robert G. Wilson v_, Nov 28 2001