This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A176796 #12 Feb 24 2019 04:13:00 %S A176796 1,3,12,14,17,25,30,35,39,69,71,74,80,83,88,102,107,122,126,129,134, %T A176796 151,170,172,176,184,187,202,220,239,244,249,258,261,263,272,280,283, %U A176796 289,298,308,321,363,371,377,386,390,403,421,432,438,447,451,453,477,480 %N A176796 Numbers k such that A129307(k) + A129307(k+1) is a square. %C A176796 Squares are in A075577. %p A176796 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: %p A176796 A129307 := proc(n) A000217(A027861(n)) ; end proc: %p A176796 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: %p A176796 seq(A176796(n),n=1..80) ; # _R. J. Mathar_, Jun 28 2010 %Y A176796 Cf. A000217, A027861, A075577, A129307. %K A176796 nonn %O A176796 1,2 %A A176796 _Giovanni Teofilatto_, Apr 26 2010 %E A176796 Extended beyond a(5) by _R. J. Mathar_, Jun 28 2010