A341760 Least k > 1 such that (n^k+k)/(n+k) is an integer.

2, 2, 7, 3, 2, 3, 4, 5, 5, 3, 5, 5, 7, 11, 7, 5, 4, 7, 16, 5, 15, 3, 4, 9, 22, 5, 13, 6, 8, 7, 19, 7, 9, 11, 5, 5, 6, 19, 13, 9, 12, 7, 9, 5, 11, 10, 23, 5, 4, 7, 7, 9, 13, 19, 21, 5, 7, 13, 29, 9, 5, 4, 19, 9, 8, 7, 12, 10, 17, 7, 17, 6, 13, 5, 31, 5, 9, 7, 8, 7, 25, 9, 41, 15, 21, 10, 19, 9, 28, 11, 15

Offset

0,1

Links

Seiichi Manyama, Table of n, a(n) for n = 0..10000

Mathematica

a[n_] := Module[{k = 2}, While[! Divisible[n^k + k, n + k], k++]; k]; Array[a, 100, 0] (* Amiram Eldar, Jun 04 2021 *)

Prog

(PARI) a(n) = my(k=2); while((n^k+k)%(n+k)!=0, k++); k;

Crossrefs

Cf. A242801, A242899, A341844, A341889, A341890.

Sequence in context: A218756 A317329 A235709 * A342453 A370393 A379391

Adjacent sequences: A341757 A341758 A341759 * A341761 A341762 A341763

Keyword

nonn

Author

Seiichi Manyama, Jun 04 2021

Status

approved