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 A366352 #17 Nov 22 2023 22:16:01 %S A366352 97,349,1447,1663,2347,3697,9547,13147,13309,13687,14533,14947,15727, %T A366352 16603,21139,24547,24847,26557,27733,31147,32797,33613,34603,35593, %U A366352 36943,38149,38707,40849,41047,42433,44449,44647,45763,45949,46447,50047,52387,58147,58309 %N A366352 Lesser of 2 successive primes (k, k+4) sandwiching 3 consecutive nonsquarefree numbers. %e A366352 97 and 101 are prime numbers; 98 = 2 * 7^2, 99 = 3^2 * 11 and 100 = 2^2 * 5^2 are 3 consecutive nonsquarefree numbers, so 97 is a term. %e A366352 349 and 353 are prime numbers; 350 = 2 * 5^2 * 7, 351 = 3^3 * 13, 352 = 2^5 * 11 are 3 consecutive nonsquarefree numbers, so 349 is a term. %t A366352 Select[Partition[Prime[Range[6000]], 2, 1], Differences[#] == {4} && AllTrue[Range[First[#] + 1, Last[#] - 1], ! SquareFreeQ[#1] &] &][[;; , 1]] (* _Amiram Eldar_, Oct 08 2023 *) %o A366352 (PARI) isok(p) = isprime(p) && (nextprime(p+1) - p == 4) && (sum(k=1, 3, issquarefree(p+k)) == 0); \\ _Michel Marcus_, Oct 08 2023 %Y A366352 Cf. A000040, A013929. %Y A366352 Intersection of A023200 and A061400. %Y A366352 Cf. A061368. %K A366352 nonn %O A366352 1,1 %A A366352 _Massimo Kofler_, Oct 08 2023