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 A110930 #9 Apr 22 2023 15:13:24
%S A110930 1,3,7,17,37,79,163,331,673,1361,2729,5471,10949,21911,43853,87719,
%T A110930 175447,350899,701819,1403641,2807303,5614657,11229331,22458671,
%U A110930 44917381,89834777,179669557,359339171,718678369,1437356741,2874713497
%N A110930 a(1) = 1; a(n) = nextprime(2*a(n-1)) for n > 1.
%H A110930 G. C. Greubel, <a href="/A110930/b110930.txt">Table of n, a(n) for n = 1..1000</a>
%F A110930 a(n) = A065545(n-1), n>1. - _R. J. Mathar_, Aug 18 2008
%e A110930 a(6) = nextprime(2*a(5)) = nextprime(2*37) = nextprime(74) = 79.
%t A110930 <<NumberTheory`; p = 1; Print[p]; Do[p = NextPrime[2*p]; Print[p], {n, 2, 50}]
%t A110930 RecurrenceTable[{a[n] == NextPrime[2*a[n - 1]], a[1] == 1}, a, {n, 1, 50}] (* _G. C. Greubel_, Oct 19 2017 *)
%t A110930 NestList[NextPrime[2#]&,1,30] (* _Harvey P. Dale_, Apr 22 2023 *)
%K A110930 nonn
%O A110930 1,2
%A A110930 _Ryan Propper_, Sep 23 2005