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 A094137 #6 Mar 31 2012 10:26:02
%S A094137 1,2,3,1,4,5,1,5,6,2,1,7,7,8,2,8,8,9,3,9,1,10,11,10,11,1,11,12,11,4,
%T A094137 12,3,2,12,13,14,13,13,13,14,2,1,14,14,14,15,4,16,2,1,15,17,16,5,16,
%U A094137 17,16,16,2,1,17,17,17,17,4,18,19,3,2,18,20,19,18,19,20,19,19,20,19,1,7,20,21
%N A094137 Values y of smallest positive pair (x,y) satisfying x^2 - 2*y^2 = -+d, where d=A058529(n).
%C A094137 Here (x,y) is considered smaller than (u,v) iff x+y < u+v or (x+y = u+v and x < u).
%e A094137 A058529(5) = 31; (1, 4), (7, 3), (9, 5), (13, 10), ... are pairs satisfying x^2 - 2*y^2 = -+31; (1, 4) is the smallest one, so a(5) = 4.
%o A094137 (PARI) {for(n=1,765,fac=factor(n);v=vector(matsize(fac)[1],j,fac[j,1])%8;b=1;for(k=1,length(v),if(v[k]>1&&v[k]<7,b=0));if(b>0,print1(sp(n)[2],",")))}. For sp(n) see A094136.
%Y A094137 Cf. A058529, A094136, A094138.
%K A094137 nonn
%O A094137 1,2
%A A094137 _Lekraj Beedassy_, May 04 2004
%E A094137 Edited, corrected and extended by _Klaus Brockhaus_ May 31 2004