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.

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

This page as a plain text file.
%I A341902 #20 Jun 04 2021 22:09:49
%S A341902 2,2,4,3,2,3,4,5,4,3,5,4,10,8,7,5,4,7,16,5,8,3,11,10,6,5,4,9,8,6,28,9,
%T A341902 12,11,8,5,6,20,19,9,12,7,40,13,11,10,23,22,8,7,20,9,16,19,12,5,4,19,
%U A341902 29,28,58,32,31,9,6,13,12,21,24,15,35,9,70,38,37,20,8,7,13,17,10,9,41,40,18,17,16,29,28,10,15,13,32
%N A341902 Least k > 1 such that (n^3+k)/(n+k) is an integer.
%H A341902 Seiichi Manyama, <a href="/A341902/b341902.txt">Table of n, a(n) for n = 0..10000</a>
%F A341902 a(n) <= n-2 for all n > 3.
%t A341902 a[n_] := Module[{k = 2}, While[! Divisible[n^3 + k, n + k], k++]; k]; Array[a, 100, 0] (* _Amiram Eldar_, Jun 04 2021 *)
%o A341902 (PARI) a(n) = my(k=2); while((n^3+k)%(n+k)!=0, k++); k;
%Y A341902 Cf. A301941, A341889.
%K A341902 nonn
%O A341902 0,1
%A A341902 _Seiichi Manyama_, Jun 04 2021