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 A140746 #16 Aug 27 2018 02:09:13 %S A140746 1,37,79196,177833,5290738,9667939010 %N A140746 Numbers n such that n^2 + 3 is powerful, (i.e., is of the form a^2*b^3, with a>=1, b>=1). %C A140746 Florian Luca proved that this sequence is infinite, by showing that 37*x(7*k) + 98*y(7*k) is in the sequence, where x(k) = A001081(k) and y(k) = A001080(k) are solutions of the Pell equation x^2 - 7*y^2 = 1. The sequence of these numbers is 37, 9667939010, 2524807950507510523, 659360302164952911361460078, ... - _Amiram Eldar_, Aug 22 2018 %C A140746 a(7) <= 457189690981. - _Giovanni Resta_, Aug 23 2018 %D A140746 J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 37, pp 14, Ellipses, Paris 2008. %e A140746 37 is the sequence since 37^2 + 3 = 1372 = 2^2 * 7^3 is powerful. %t A140746 powerfulQ[n_] := Min@FactorInteger[n][[All, 2]] > 1; Select[Range[100000], powerfulQ[#^2 + 3] &] (* _Amiram Eldar_, Aug 22 2018 *) %o A140746 (PARI) isok(n) = vecmin(factor(n^2+3)[,2]) > 1; \\ _Michel Marcus_, Aug 24 2018 %Y A140746 Cf. A001694 (powerful), A001080, A001081, A117950 (n^2+3). %K A140746 nonn,more %O A140746 1,2 %A A140746 _Lekraj Beedassy_, Jul 12 2008 %E A140746 a(5) corrected and a(6) removed by _Amiram Eldar_, Aug 22 2018 %E A140746 a(6) from _Giovanni Resta_, Aug 23 2018