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 A175953 #10 Jan 11 2025 03:17:00 %S A175953 1,2,3,5,7,11,17,23,29,37,47,59,79,101,127,163,211,269,337,431,541, %T A175953 677,853,1069,1361,1709,2137,2677,3347,4201,5261,6577,8231,10289, %U A175953 12889,16127,20161,25219,31531,39419,49277,61603,77017,96281,120371,150473 %N A175953 Let a(1)=1; for n>1 a(n)=nextprime(a(n-1)+(a(n-1)+1)/4). %C A175953 The following definition of nextprime(q) is used: if q is an integer and prime, nextprime(q)=q. If q is an integer and composite or rational, nextprime(q) is the smallest prime >q. [_R. J. Mathar_, Oct 30 2010] %p A175953 nprime := proc(n) if type(n,'integer') then if isprime(n) then return n; else return nextprime(n) ; end if; else return nextprime(floor(n)) ; end if; end proc: %p A175953 A175953 := proc(n) option remember; if n= 1 then 1; else p := procname(n-1)+(procname(n-1)+1)/4 ; return nprime(p) ; end if; end proc: %p A175953 seq(A175953(n),n=1..120) ; # _R. J. Mathar_, Oct 30 2010 %Y A175953 Cf. A008578, A055496, A089571, A162336. %K A175953 nonn,easy %O A175953 1,2 %A A175953 _Juri-Stepan Gerasimov_, Oct 29 2010 %E A175953 More terms from _R. J. Mathar_, Oct 30 2010