OFFSET
1,1
EXAMPLE
169 = 13^2, 170 = 2 * 5 * 17, 171 = 3^2 * 19, so 170 is a term.
529 = 53^2, 530 = 2 * 5 * 53, 531 = 3^2 * 59, so 530 is a term.
MATHEMATICA
Select[Range[4500], FactorInteger[#][[;; , 2]] == {1, 1, 1} && ! Or @@ SquareFreeQ /@ (# + {-1, 1} ) &] (* Amiram Eldar, Aug 12 2023 *)
PROG
(PARI) isok(k) = (bigomega(k)==3) && (omega(k)==3) && !issquarefree(k-1) && !issquarefree(k+1); \\ Michel Marcus, Aug 12 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Aug 12 2023
STATUS
approved