OFFSET
1,2
COMMENTS
These binomials do not have primitive factors.
LINKS
Wikipedia, Lucas sequence
PROG
(Magma) lst:=[0]; r:=4864; t:=1; d:=func<t | Floor(r/(4*t))>; while d(t) gt t do s:=d(t); if s mod 2 eq 1 and t mod 2 eq 1 then s-:=1; end if; if s mod 2 eq 0 and t mod 2 eq 0 then s-:=1; end if; repeat; m:=(s+t)^2-(s-t)^2; if PrimeDivisors(s) eq [2] then Append(~lst, m); end if; s-:=2; until s-t lt 1; t+:=1; end while; Sort(lst); // Arkadiusz Wesolowski, Dec 19 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Jul 30 2015
STATUS
approved