OFFSET
1,2
EXAMPLE
The prime factorization of 150 is 5*5*3*2, with middle parts {3,5}, so 150 is in the sequence.
The prime factorization of 90 is 5*3*3*2, with middle parts {3,3}, so 90 is not in the sequence.
MATHEMATICA
mpm[q_]:=MemberQ[If[OddQ[Length[q]], {Median[q]}, {q[[Length[q]/2]], q[[Length[q]/2+1]]}], Max@@q];
Select[Range[100], #==1||mpm[Flatten[Apply[ConstantArray, FactorInteger[#], {1}]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 12 2023
STATUS
approved