OFFSET
1,1
COMMENTS
There are 2142682 such numbers up to 10^9, the last one in this range being 999999456.
PROG
(PARI) isA001481(n)=#bnfisintnorm(bnfinit(z^2+1), n)
is(n)=my(k=1, f); while((f=fibonacci(k++))<=n, if(isA001481(n-f), return(0))); 1 \\ Charles R Greathouse IV, Mar 11 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Jan 15 2006
STATUS
approved