OFFSET
1,2
COMMENTS
EXAMPLE
14 = 2*7 is a term since 4 < 7.
44 = 4*11 is a term since 8 < 11.
MATHEMATICA
propQ[n_] := Module[{fL=FactorInteger[n]}, Length[fL]==1||(Length[fL]==2&&fL[[1, 1]]==2&&fL[[1, 1]]^(fL[[1, 2]]+1)<fL[[2, 1]])]
a368087[m_, n_] := Select[Range[m, n], propQ]
a368087[1, 128]
CROSSREFS
KEYWORD
nonn
AUTHOR
Hartmut F. W. Hoft, Dec 11 2023
STATUS
approved