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 A152075 #20 Sep 05 2019 11:06:46 %S A152075 3,5,7,13,13,19,19,29,29,31,37,43,43,53,53,59,61,67,73,73,79,89,89, %T A152075 103,103,103,109,109,131,127,137,137,139,149,151,157,163,173,173,179, %U A152075 181,191,193,199,199,229,233,229,229,239,239,241,251,257,263,269,271,277 %N A152075 a(n) = the smallest prime p > prime(n) such that p - prime(n) is squarefree, where prime(n) is the n-th prime. %C A152075 Indices for which a(n)<a(n-1) are 30, 48, 66, 80, 95, 100, 125, 127, 132, 137, 150, 157, 159, 193,... - _M. F. Hasler_, Nov 23 2008 %H A152075 Michael De Vlieger, <a href="/A152075/b152075.txt">Table of n, a(n) for n = 1..10000</a> %t A152075 nxtp[n_]:=NestWhile[NextPrime[#]&,n,!SquareFreeQ[#-n]&]; nxtp/@Prime[Range[60]] (* _Harvey P. Dale_, Apr 23 2011 *) %o A152075 (PARI) A152075(n)=local( p=prime(n), q=p); until( issquarefree(q-p), q=nextprime(q+1)); q \\ _M. F. Hasler_, Nov 23 2008 %Y A152075 Cf. A152076. %K A152075 nonn %O A152075 1,1 %A A152075 _Leroy Quet_, Nov 23 2008 %E A152075 Terms beyond a(13) from _M. F. Hasler_ and _Ray Chandler_, Nov 23 2008