OFFSET
1,1
EXAMPLE
24 = 2^3 * 3, 25 = 5^2, 26 = 2 * 13, 27 = 3^3, 28 = 2^2 * 7, so 26 is a term.
360 = 2^3 * 3^2 * 5, 361 = 19^2, 362 = 2 * 181, 363 = 3 * 11^2, 364 = 2^2 * 7 * 13, so 362 is a term.
MATHEMATICA
Select[Range[14000], PrimeOmega[#] == 2 && ! AnyTrue[# + {-2, -1, 1, 2}, SquareFreeQ] &] (* Amiram Eldar, Jul 01 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Jul 01 2023
STATUS
approved