login
A341844
Least k > 1 such that (n+k^n)/(n+k) is an integer.
4
2, 4, 3, 6, 3, 5, 2, 4, 3, 3, 4, 14, 2, 7, 5, 18, 3, 20, 2, 8, 3, 7, 10, 6, 3, 13, 9, 9, 6, 29, 2, 12, 7, 12, 5, 38, 2, 19, 9, 13, 3, 41, 6, 11, 3, 15, 22, 8, 2, 25, 4, 39, 7, 12, 2, 13, 3, 60, 28, 62, 2, 31, 9, 10, 3, 5, 2, 24, 11, 24, 4, 74, 3, 37, 20, 25, 3, 80, 5, 10, 4, 9, 40, 18, 2, 37, 29, 16, 3, 15, 2
OFFSET
1,1
LINKS
MATHEMATICA
a[n_] := Module[{k = 2}, While[! Divisible[k^n + n, n + k], k++]; k]; Array[a, 100] (* Amiram Eldar, Jun 04 2021 *)
PROG
(PARI) a(n) = my(k=2); while((n+k^n)%(n+k)!=0, k++); k;
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jun 04 2021
STATUS
approved