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.

A067722 Least positive integer k such that n*(n + k) is a perfect square.

This page as a plain text file.
%I A067722 #14 Feb 07 2015 06:24:25
%S A067722 1,3,6,9,5,15,18,21,10,7,30,33,15,39,42,45,9,51,14,57,25,63,66,69,30,
%T A067722 11,78,21,35,87,90,93,18,99,102,105,13,111,114,117,50,123,126,129,55,
%U A067722 35,138,141,27,15,22,153,65,159,42,165,70,171,174,177,75,183,186,49,17
%N A067722 Least positive integer k such that n*(n + k) is a perfect square.
%H A067722 Peter Kagey, <a href="/A067722/b067722.txt">Table of n, a(n) for n = 0..5000</a>
%e A067722 a(8) = 10 because 8*(8+10) = 144 = 12^2.
%t A067722 Do[k = 1; While[ !IntegerQ[ Sqrt[ k (k + n)]], k++ ]; Print[k], {n, 0, 75} ]
%o A067722 (PARI) a(n) = my(k=1); while(!issquare(n*(n+k)), k++); k; \\ _Michel Marcus_, Feb 05 2015
%o A067722 (Haskell)
%o A067722 a067722 n = head [k | k <- [1..], a010052 (n * (n + k)) == 1]
%o A067722 -- _Reinhard Zumkeller_, Feb 07 2015
%Y A067722  Cf. A010052.
%K A067722 nonn
%O A067722 0,2
%A A067722 _Robert G. Wilson v_, Feb 05 2002