OFFSET
1,2
COMMENTS
Squares are in A075577.
MAPLE
A027861 := proc(n) option remember; local a; if n= 1 then 1; else for a from procname(n-1)+1 do if isprime(a^2+(a+1)^2) then return a; end if; end do: end if; end proc:
A176796 := proc(n) option remember; if n = 1 then 1; else for a from procname(n-1)+1 do if issqr(A129307(a)+A129307(a+1)) then return a; end if; end do: end if; end proc:
seq(A176796(n), n=1..80) ; # R. J. Mathar, Jun 28 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Apr 26 2010
EXTENSIONS
Extended beyond a(5) by R. J. Mathar, Jun 28 2010
STATUS
approved