OFFSET
1,2
LINKS
P. Gibbs, Diophantine quadruples and Cayley's hyperdeterminant, arXiv:math/0107203 [math.NT], 2001.
Eric Weisstein's World of Mathematics, Diophantus Property.
MATHEMATICA
m = 0; Do[If[IntegerQ[Sqrt[a*b + 1]], an[m++] = a], {b, 2, 43}, {a, 1, b}]; Array[an, 81, 0] (* Jean-François Alcover, Feb 04 2019 *)
PROG
(PARI) an=vector(81); m=0; for(b=2, 43, for(a=1, b, if(issquare(a*b+1), an[ m++ ]=a))); an
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved