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 A247096 #19 Sep 08 2022 08:46:09 %S A247096 58,59,157,284,338,373,382,500,598,725,745,823,843,941,1039,1111,1166, %T A247096 1201,1264,1382,1400,1480,1490,1607,1705,1732,1823,1921,1999,2038, %U A247096 2048,2146,2264,2272,2362,2489,2587,2686,2705,2767,2803,2930,3028,3146,3244,3371,3469,3547,3587,3685,3712 %N A247096 Numbers n such that (n^2 - 2) and (n^2 + 2) are not squarefree. %C A247096 Intersection of A227897 and A228140. %C A247096 Primes: 59, 157, 373, 823, 941, 1039, 1201, 1607, 1823, 1999, 2767, 2803, 3371, 3469, 3547, ... %H A247096 Colin Barker, <a href="/A247096/b247096.txt">Table of n, a(n) for n = 1..1000</a> %t A247096 Select[Range[4000],! SquareFreeQ[#^2 - 2] && ! SquareFreeQ[#^2 + 2] &] (* _Vincenzo Librandi_, Nov 18 2014 *) %o A247096 (Magma) [n: n in [1..4000] | not IsSquarefree(n^2 - 2) and not IsSquarefree(n^2 + 2)]; %o A247096 (PARI) select(n->!issquarefree(n^2-2) && !issquarefree(n^2+2), vector(4000, n, n)) \\ _Colin Barker_, Nov 18 2014 %Y A247096 Cf. A227897, A228140. %K A247096 nonn %O A247096 1,1 %A A247096 _Juri-Stepan Gerasimov_, Nov 18 2014