|
|
A111378
|
|
Squares that are equal to the sum of two Fibonacci numbers.
|
|
3
|
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
|