cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A341760 #17 Jun 05 2021 10:54:32
%S A341760 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,
%T A341760 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,
%U A341760 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
%N A341760 Least k > 1 such that (n^k+k)/(n+k) is an integer.
%H A341760 Seiichi Manyama, <a href="/A341760/b341760.txt">Table of n, a(n) for n = 0..10000</a>
%t A341760 a[n_] := Module[{k = 2}, While[! Divisible[n^k + k, n + k], k++]; k]; Array[a, 100, 0] (* _Amiram Eldar_, Jun 04 2021 *)
%o A341760 (PARI) a(n) = my(k=2); while((n^k+k)%(n+k)!=0, k++); k;
%Y A341760 Cf. A242801, A242899, A341844, A341889, A341890.
%K A341760 nonn
%O A341760 0,1
%A A341760 _Seiichi Manyama_, Jun 04 2021