cp's OEIS Frontend

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.

A076671 Smallest a(n) > a(n-1) such that a(n)^2+a(n-1)^2 is a perfect square, with a(1)=5.

This page as a plain text file.
%I A076671 #11 Dec 15 2016 08:48:41
%S A076671 5,12,16,30,40,42,56,90,120,126,168,224,360,378,504,550,1320,1386,
%T A076671 1848,1989,2652,2961,3948,5264,8052,9711,12948,17264,24852,31311,
%U A076671 41748,53289,71052,94736,130548,145061,146280,153594,163392,170280,173290
%N A076671 Smallest a(n) > a(n-1) such that a(n)^2+a(n-1)^2 is a perfect square, with a(1)=5.
%C A076671 The sequence is infinite.
%C A076671 If we require the terms to be distinct, but not necessarily increasing, then the sequence "paints itself into a corner" and can't be continued: 5, 12, 9, 40, 30, 16, 63, 60, 11. - _Ivan Neretin_, Dec 15 2016
%H A076671 Ivan Neretin, <a href="/A076671/b076671.txt">Table of n, a(n) for n = 1..1000</a>
%t A076671 Nest[Append[#, k = #[[-1]]; d = Divisors[k^2]; Min@Select[(Reverse@d - d)/2, IntegerQ@# && # > k &]] &, {5}, 40] (* _Ivan Neretin_, Dec 15 2016 *)
%Y A076671 Cf. A076600.
%K A076671 nonn
%O A076671 1,1
%A A076671 _Zak Seidov_, Oct 25 2002