OFFSET
1,1
EXAMPLE
The terms together with their prime factors begin:
2 = 2
4 = 2*2
6 = 2*3
8 = 2*2*2
12 = 2*2*3
16 = 2*2*2*2
18 = 2*3*3
24 = 2*2*2*3
32 = 2*2*2*2*2
36 = 2*2*3*3
40 = 2*2*2*5
48 = 2*2*2*2*3
54 = 2*3*3*3
64 = 2*2*2*2*2*2
72 = 2*2*2*3*3
80 = 2*2*2*2*5
96 = 2*2*2*2*2*3
MATHEMATICA
prifacs[n_]:=If[n==1, {}, Flatten[ConstantArray@@@FactorInteger[n]]];
Select[Range[100], Floor[Mean[prifacs[#]]]==2&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 18 2023
STATUS
approved