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 A364905 #19 Sep 06 2023 21:13:53
%S A364905 170,530,595,638,651,665,874,962,1015,1209,1495,1551,1695,1749,1826,
%T A364905 1855,2035,2255,2365,2431,2451,2465,2526,2674,2717,2726,2737,2739,
%U A364905 2751,2755,2782,2849,2874,3115,3145,3178,3363,3367,3451,3619,3655,3689,3835,3905,3970,4015,4017,4047,4085
%N A364905 Sphenic numbers with no squarefree neighbors.
%e A364905 169 = 13^2, 170 = 2 * 5 * 17, 171 = 3^2 * 19, so 170 is a term.
%e A364905 529 = 53^2, 530 = 2 * 5 * 53, 531 = 3^2 * 59, so 530 is a term.
%t A364905 Select[Range[4500], FactorInteger[#][[;; , 2]] == {1, 1, 1} && ! Or @@ SquareFreeQ /@ (# + {-1, 1} ) &] (* _Amiram Eldar_, Aug 12 2023 *)
%o A364905 (PARI) isok(k) = (bigomega(k)==3) && (omega(k)==3) && !issquarefree(k-1) && !issquarefree(k+1); \\ _Michel Marcus_, Aug 12 2023
%Y A364905 Intersection of A007304 and A281192.
%Y A364905 Cf. A013929, A364025.
%K A364905 nonn
%O A364905 1,1
%A A364905 _Massimo Kofler_, Aug 12 2023