OFFSET
1,2
COMMENTS
EXAMPLE
The prime indices of 25 are (3,3), which is not the first sums minus 1 of any multiset beginning with 1 (note (2,2,2) does not begin with 1), so 25 is not in the sequence.
The prime indices of 39 are (2,6), which is the first sums minus 1 of (1,2,5), so 39 is in the sequence.
MATHEMATICA
nn=100;
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
firsums[c_]:=Table[c[[i]]+c[[i+1]], {i, Length[c]-1}];
Take[Sort[Table[Times@@Prime/@(firsums[Prepend[prix[n], 1]]-1), {n, Prime[nn]}]], nn]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 20 2025
STATUS
approved
