OFFSET
1,1
COMMENTS
Numbers with at least one prime exponent greater than 1 are excluded here.
EXAMPLE
7566 = 2*3*13*97 (between 7565 = 5 * 17 * 89 and 7567 = 7*23*47).
9086 = 2*7*11*59 (between 9085 = 5 * 23 * 79 and 9087 = 3*13*233).
10506 = 2*3*17*103 (between 10505 = 5 * 11 * 191 and 10507 = 7*19*79).
15170 = 2*5*37*41 (between 15169 = 7 * 11 * 197 and 15171 = 3*13*389).
MATHEMATICA
q[n_, m_] := Module[{f = FactorInteger[n]}, Length[f] == m && Max[f[[;; , 2]]] == 1]; Select[Range[40000], q[#, 4] && q[# - 1, 3] && q[# + 1, 3] &] (* Amiram Eldar, Mar 28 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Mar 28 2022
STATUS
approved