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.

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

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