A112926 Smallest squarefree integer > the n-th prime.

3, 5, 6, 10, 13, 14, 19, 21, 26, 30, 33, 38, 42, 46, 51, 55, 61, 62, 69, 73, 74, 82, 85, 91, 101, 102, 105, 109, 110, 114, 129, 133, 138, 141, 151, 154, 158, 165, 170, 174, 181, 182, 193, 194, 199, 201, 213, 226, 229, 230, 235, 241, 246, 253, 258, 265, 271, 273

Offset

1,1

Links

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

Example

10 is the smallest squarefree number greater than the 4th prime, 7. So a(4) = 10.

Maple

with(numtheory): a:=proc(n) local p, B, j: p:=ithprime(n): B:={}: for j from p+1 to p+20 do if abs(mobius(j))>0 then B:=B union {j} else B:=B fi od: B[1] end: seq(a(m), m=1..75); # Emeric Deutsch, Oct 10 2005

Mathematica

Do[k = Prime[n] + 1; While[ !SquareFreeQ[k], k++ ]; Print[k], {n, 1, 100}] (* Ryan Propper, Oct 10 2005 *)
With[{k = 120}, Table[SelectFirst[Range[Prime@ n + 1, Prime@ n + k], SquareFreeQ], {n, 58}]] (* Michael De Vlieger, Aug 16 2017 *)

Prog

(PARI) a(n, p=prime(n))=while(!issquarefree(p++), ); p \\ Charles R Greathouse IV, Aug 16 2017

Crossrefs

Cf. A061400, A112925, A112928, A112929, A112930.

Sequence in context: A265749 A115823 A190721 * A176747 A238488 A230124

Adjacent sequences: A112923 A112924 A112925 * A112927 A112928 A112929

Keyword

nonn

Author

Leroy Quet, Oct 06 2005

Extensions

More terms from Ryan Propper and Emeric Deutsch, Oct 10 2005

Status

approved