OFFSET
1,1
COMMENTS
EXAMPLE
The sequence of terms together with their prime indices begins:
3: {2}
6: {1,2}
7: {4}
9: {2,2}
12: {1,1,2}
14: {1,4}
18: {1,2,2}
19: {8}
21: {2,4}
24: {1,1,1,2}
27: {2,2,2}
28: {1,1,4}
36: {1,1,2,2}
38: {1,8}
42: {1,2,4}
48: {1,1,1,1,2}
49: {4,4}
53: {16}
54: {1,2,2,2}
56: {1,1,1,4}
MATHEMATICA
Select[Range[100], And[!IntegerQ[Log[2, #]], And@@Cases[FactorInteger[#], {p_, _}:>IntegerQ[Log[2, PrimePi[p]]]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 21 2019
STATUS
approved