OFFSET
1,2
COMMENTS
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
q=Table[If[n==1, 1, LCM@@primeMS[n]], {n, 100}];
Table[Position[q, i][[1, 1]], {i, First[Split[Union[q], #1+1==#2&]]}]
CROSSREFS
The version for product instead of lcm is A318871
The version for standard compositions is A333225.
The version for binary indices is A333492.
Let q(k) be the prime indices of k:
- The product of q(k) is A003963(k).
- The sum of q(k) is A056239(k).
- The terms of q(k) are row k of A112798.
- The GCD of q(k) is A289508(k).
- The LCM of q(k) is A290103(k).
- The LCM of q(k) + 1 is A328219(k).
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 26 2020
STATUS
approved