OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 1000: # for terms before the first term > N
A[1]:= 1:
SF:= select(numtheory:-issqrfree, [$2..N]):
DA:= {}:
y:= 1:
found:= true:
for n from 2 while found do
found:= false;
for j from 1 to nops(SF) while not found do
x:= SF[j];
if not member(abs(x-y), DA) then
found:= true;
A[n]:= x;
DA:= DA union {abs(x-y)};
SF:= subsop(j=NULL, SF);
y:= x;
fi
od od:
convert(A, list); # Robert Israel, Feb 22 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 18 2003
EXTENSIONS
Edited and extended by David Wasserman, Dec 15 2004
STATUS
approved