OFFSET
1,1
EXAMPLE
3772 = 2^2 * 23 * 41, 3773 = 7^3 * 11, 3774 = 2 * 3 * 17 * 37, 3775 = 5^2 * 151, 3776 = 2^6 * 59, so 3774 is a term.
6724 = 2^2 * 41^2, 6725 = 5^2 * 269, 6726 = 2 * 3 * 19 * 59, 6727 = 7 * 31^2, 6728 = 2^3 * 29^2, so 6726 is a term.
MATHEMATICA
Select[Range[55000], FactorInteger[#][[;; , 2]] == {1, 1, 1, 1} && !AnyTrue[# + {-2, -1, 1, 2}, SquareFreeQ] &] (* Amiram Eldar, Aug 06 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Aug 06 2023
STATUS
approved