|
|
A111378
|
|
Squares that are equal to the sum of two Fibonacci numbers.
|
|
3
|
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
Fibs:= {seq(combinat:-fibonacci(i), i=0..100)}:
sort(convert(select(issqr, {seq(seq(Fibs[i]+Fibs[j], j=1..i), i=1..100)}), list)); # Robert Israel, Jun 03 2024
|
|
MATHEMATICA
|
Select[Union[Total/@Subsets[Fibonacci[Range[0, 100]], {2}], Table[Fibonacci[n]*2, {n, 0, 100}]], IntegerQ[Sqrt[#]]&] (* James C. McMahon, Jun 03 2024 *)
|
|
PROG
|
(PARI) list(lim)=my(F=List(), v=List([0, 1]), n=1, t); while((t=fibonacci(n++))<=lim, listput(F, t)); F=Vec(F); for(i=1, #F, for(j=i, #F, if(issquare(t=F[i]+F[j]), listput(v, t)))); Set(v) \\ Charles R Greathouse IV, Sep 16 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|