OFFSET
1,4
COMMENTS
EXAMPLE
PROG
(PARI) for(n=1, 10^6, t=fibonacci(2*n-1); s=sqrtint(t); forstep(i=s, 1, -1, if(issquare(t-i*i), print1(sqrtint(t-i*i), ", "); break)))
(Haskell)
a229139 1 = 0
a229139 n = head $
dropWhile (== 0) $ map (a037213 . (t -) . (^ 2)) [s, s - 1 ..]
where t = a000045 (2 * n - 1); s = a000196 t
-- Reinhard Zumkeller, Oct 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Sep 15 2013
STATUS
approved