OFFSET
0,2
LINKS
Peter Kagey, Table of n, a(n) for n = 0..5000
EXAMPLE
a(8) = 10 because 8*(8+10) = 144 = 12^2.
MATHEMATICA
Do[k = 1; While[ !IntegerQ[ Sqrt[ k (k + n)]], k++ ]; Print[k], {n, 0, 75} ]
PROG
(PARI) a(n) = my(k=1); while(!issquare(n*(n+k)), k++); k; \\ Michel Marcus, Feb 05 2015
(Haskell)
a067722 n = head [k | k <- [1..], a010052 (n * (n + k)) == 1]
-- Reinhard Zumkeller, Feb 07 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 05 2002
STATUS
approved