OFFSET
1,1
EXAMPLE
The nontrivial divisors of 42 are {2, 3, 6, 7, 14, 21}, with pairs of consecutive divisible divisors {3, 6} and {7, 14}, so 42 belongs to the sequence.
MATHEMATICA
Select[Range[200], MatchQ[DeleteCases[Divisors[#], 1|#], {___, x_, y_, ___}/; Divisible[y, x]]&]
Select[Range[2, 200], AnyTrue[Partition[Most[Rest[Divisors[#]]], 2, 1], Mod[#[[2]], #[[1]]] == 0&]&] (* Harvey P. Dale, Mar 14 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 13 2019
STATUS
approved