%I #5 Aug 25 2014 11:57:43
%S 1,2,18,16,1550,2598,299586,812,29118,348678430,67546215506,20345040,
%T 61054982557998,281241170407078,76861433640456450,2690404,
%U 128583032925805678334,211927625850,275941052631578947368402,174339200
%N Smallest k such that n*(n+k) + 1 is an n-th power.
%C Sequence is obviously infinite.
%C If the sequence is restricted to only prime n's, the sequence increases absolutely. See comment in A083503.
%t Do[i = 2; While[k = (i^n - 1)/n - n; !IntegerQ[k], i++ ]; Print[k], {n, 1, 20}]
%Y The i's in the above Mathematica coding, except for a(1), give A055670.
%Y Cf. A083500, A083503.
%K nonn
%O 1,2
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 03 2003
%E Edited and extended by _Robert G. Wilson v_, May 11 2003
|