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 A065122 #12 Jun 18 2018 03:37:59 %S A065122 2,23,233,2333,23333,233341,2333459,23334601,233346041,2333460413, %T A065122 23334604169,233346041759,2333460417637,23334604176379, %U A065122 233346041763823,2333460417638239,23334604176382489,233346041763824911 %N A065122 a(1) = 2; a(n) is smallest prime > 10*a(n-1). %H A065122 Harry J. Smith, <a href="/A065122/b065122.txt">Table of n, a(n) for n = 1..100</a> %t A065122 NextPrim[n_Integer] := Block[ {k = n + 1}, While[ !PrimeQ[k], k++ ]; Return[k]]; a[1] = 2; a[n_] := NextPrim[ 10*a[n - 1]]; Table[ a[n], {n, 1, 20} ] %t A065122 NestList[NextPrime[10#]&,2,20] (* _Harvey P. Dale_, Jun 03 2012 *) %o A065122 (PARI) { for (n=1, 100, if (n>1, a=nextprime(10*a), a=2); write("b065122.txt", n, " ", a) ) } \\ _Harry J. Smith_, Oct 10 2009 %Y A065122 Cf. A024770, A055496. %K A065122 nonn %O A065122 1,1 %A A065122 _Henry Bottomley_, Nov 13 2001 %E A065122 More terms from _Robert G. Wilson v_, Nov 28 2001