A077662 a(n) = n-th positive integer not relatively prime to n, with a(1)=1.

1, 4, 9, 8, 25, 9, 49, 16, 27, 16, 121, 18, 169, 24, 33, 32, 289, 27, 361, 34, 49, 40, 529, 36, 125, 48, 81, 49, 841, 40, 961, 64, 84, 64, 112, 54, 1369, 72, 102, 66, 1681, 58, 1849, 80, 96, 88, 2209, 72, 343, 84, 136, 96, 2809, 81, 200, 98, 153, 112, 3481, 82

Offset

1,2

Comments

Final term of n-th row of A077661.

Links

Franklin T. Adams-Watters, Table of n, a(n) for n = 1..1000

Mathematica

Join[{1}, Table[Select[Range[5000], !CoprimeQ[#, n]&][[n]], {n, 2, 60}]] (* Harvey P. Dale, May 26 2023 *)

Prog

(PARI) a(n) = local(i, k); if(n<=1, n, k=n-eulerphi(n); i=n\k; k*=i; i*=n; while(k<n, k+=(gcd(i++, n)!=1)); i)

Crossrefs

Cf. A077661, A077663, A069213.

A077149(n) - n - 1.

Sequence in context: A135718 A140580 A289280 * A063718 A063748 A121920

Adjacent sequences: A077659 A077660 A077661 * A077663 A077664 A077665

Keyword

nonn

Author

Amarnath Murthy, Nov 14 2002

Extensions

More terms from Sascha Kurz, Jan 27 2003

Status

approved