A152075 a(n) = the smallest prime p > prime(n) such that p - prime(n) is squarefree, where prime(n) is the n-th prime.

3, 5, 7, 13, 13, 19, 19, 29, 29, 31, 37, 43, 43, 53, 53, 59, 61, 67, 73, 73, 79, 89, 89, 103, 103, 103, 109, 109, 131, 127, 137, 137, 139, 149, 151, 157, 163, 173, 173, 179, 181, 191, 193, 199, 199, 229, 233, 229, 229, 239, 239, 241, 251, 257, 263, 269, 271, 277

Offset: 1

Author

Leroy Quet, Nov 23 2008

Keywords

• nonn

Comments

Indices for which a(n)M. F. Hasler, Nov 23 2008

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A152076.

Programs

Mathematica

nxtp[n_]:=NestWhile[NextPrime[#]&,n,!SquareFreeQ[#-n]&]; nxtp/@Prime[Range[60]]  (* Harvey P. Dale, Apr 23 2011 *)

PARI

A152075(n)=local( p=prime(n), q=p); until( issquarefree(q-p), q=nextprime(q+1)); q \\ M. F. Hasler, Nov 23 2008

Extensions

Terms beyond a(13) from M. F. Hasler and Ray Chandler, Nov 23 2008