OFFSET
1,1
EXAMPLE
3773 = 7^3 * 11, 3774 = 2 * 3 * 17 * 37, 3775 = 5^2 * 151, so 3774 is a term.
5564 = 2^2 * 13 * 107, 5565 = 3 * 5 * 7 * 53, 5566 = 2 * 11^2 * 23, so 5565 is a term.
MATHEMATICA
Select[Range[26000], FactorInteger[#][[;; , 2]] == {1, 1, 1, 1} && ! SquareFreeQ[# - 1] && ! SquareFreeQ[# + 1] &] (* Amiram Eldar, Jul 10 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Jul 10 2023
STATUS
approved