A079114 Least squarefree number > n that is coprime to n.

2, 3, 5, 5, 6, 7, 10, 11, 10, 11, 13, 13, 14, 15, 17, 17, 19, 19, 21, 21, 22, 23, 26, 29, 26, 29, 29, 29, 30, 31, 33, 33, 34, 35, 37, 37, 38, 39, 41, 41, 42, 43, 46, 47, 46, 47, 51, 53, 51, 51, 53, 53, 55, 55, 57, 57, 58, 59, 61, 61, 62, 65, 65, 65, 66, 67, 69, 69, 70, 71, 73

Offset

1,1

Comments

a(n) = n + A079115(n).

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Example

a(44) = a(2*2*11) = 47, as 45 = 3*3*5 and 46 = 2*23.

Mathematica

lsn[n_]:=Module[{k=n+1}, While[!SquareFreeQ[k]||!CoprimeQ[n, k], k++]; k]; Array[lsn, 80] (* Harvey P. Dale, Jan 19 2017 *)

Prog

(PARI) A079114(n) = { my(h=n+1); while((!issquarefree(h))||(gcd(n, h)>1), h++); h; } \\ Antti Karttunen, Nov 23 2017

Crossrefs

Cf. A005117, A079115.

Sequence in context: A373188 A067535 A076752 * A058189 A361676 A069208

Adjacent sequences: A079111 A079112 A079113 * A079115 A079116 A079117

Keyword

nonn

Author

Reinhard Zumkeller, Dec 25 2002

Status

approved