OFFSET
1,1
EXAMPLE
168 = 2^3 * 3 * 7, 169 = 13^2, 170 = 2 * 5 * 17, 171 = 3^2 *19, 172 = 2^2 * 43, so 170 is a term.
528 = 2^4 * 3 * 11, 529 = 23^2, 530 = 2 * 5 * 53, 531 = 3^2 * 59, 532 = 2^2 * 7 * 19, so 532 is a term.
MATHEMATICA
Select[Range[17000], FactorInteger[#][[;; , 2]] == {1, 1, 1} && ! AnyTrue[# + {-2, -1, 1, 2}, SquareFreeQ] &] (* Amiram Eldar, Sep 07 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Sep 07 2023
STATUS
approved