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 A175901 #10 Jun 02 2025 02:48:36
%S A175901 7,17,19,26,31,41,49,53,55,65,71,76,97,109,127,129,161,191,197,199,
%T A175901 209,239,241,251,271,289,295,351,391,401,433,449,485,511,575,577,626,
%U A175901 647,649,685,701,703,721,727,799,811,881,883,901,967,989,1025,1055,1079
%N A175901 Numbers n such that there exists a smaller number k such that k^2-1 has exactly the same set of distinct prime divisors as n^2-1.
%F A175901 a(1)=7 because set of prime divisors of 7^2-1 is the same as for 5^2-1. The set is {2,3}.
%t A175901 aa = {}; bb = {}; Do[k = n^2 - 1; c = FactorInteger[k]; b = {}; Do[AppendTo[b, c[[m]][[1]]], {m, 1, Length[c]}]; If[Position[aa, b] != {}, AppendTo[bb, n], AppendTo[aa, b]], {n, 2, 10000}]; bb (*Artur Jasinski*)
%o A175901 (PARI) isok(n) = {pfs = factor(n^2-1)[,1]; for (k = 2, n-1, if (factor(k^2-1)[,1] == pfs, return (1));); return (0);} \\ _Michel Marcus_, Nov 04 2013
%Y A175901 Cf. A175902 (for corresponding k).
%K A175901 nonn
%O A175901 1,1
%A A175901 _Artur Jasinski_, Oct 11 2010
%E A175901 Edited by _N. J. A. Sloane_, Oct 14 2010