OFFSET
1,1
COMMENTS
EXAMPLE
The terms together with their prime indices begin:
2: {1} 34: {1,7} 72: {1,1,1,2,2}
4: {1,1} 36: {1,1,2,2} 74: {1,12}
6: {1,2} 38: {1,8} 76: {1,1,8}
8: {1,1,1} 40: {1,1,1,3} 80: {1,1,1,1,3}
10: {1,3} 44: {1,1,5} 82: {1,13}
12: {1,1,2} 46: {1,9} 84: {1,1,2,4}
14: {1,4} 48: {1,1,1,1,2} 86: {1,14}
16: {1,1,1,1} 52: {1,1,6} 88: {1,1,1,5}
20: {1,1,3} 56: {1,1,1,4} 92: {1,1,9}
22: {1,5} 58: {1,10} 94: {1,15}
24: {1,1,1,2} 60: {1,1,2,3} 96: {1,1,1,1,1,2}
26: {1,6} 62: {1,11} 100: {1,1,3,3}
28: {1,1,4} 64: {1,1,1,1,1,1} 104: {1,1,1,6}
32: {1,1,1,1,1} 68: {1,1,7} 106: {1,16}
MATHEMATICA
Select[Range[100], EvenQ[#]&&PrimeOmega[#]<=2*FactorInteger[#][[1, 2]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 06 2023
STATUS
approved