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 A175450 #10 Mar 14 2014 10:50:55 %S A175450 2,17,59,131,173,283,401,587,743,853,857,929,971,1423,1427,1499,1579, %T A175450 1613,1693,1879,1997,2069,2111,2221,2339,2411,2719,2753,2833,3019, %U A175450 3023,3209,3251,3323,3517,3779,3821,3931,4049,4159,4201,4273,4391,4463,4657 %N A175450 a(n)>a(n-1), a(n) = smallest prime greater than a(n-1) such that a(n)+a(n-1) is multiple of m, a(1)=2, m=19. %H A175450 Vincenzo Librandi, <a href="/A175450/b175450.txt">Table of n, a(n) for n = 1..1000</a> %t A175450 nxt[n_]:=Module[{k=NextPrime[n]},While[!Divisible[n+k,19],k=NextPrime[ k]]; k]; NestList[nxt,2,50] (* _Harvey P. Dale_, Mar 12 2014 *) %Y A175450 Cf. A175451. %K A175450 nonn %O A175450 1,1 %A A175450 _Zak Seidov_, May 28 2010 %E A175450 Definition corrected by _Harvey P. Dale_, Mar 12 2014