A359754 Positions of first appearances in the sequence of weighted sums of reversed prime indices (A318283).

1, 2, 3, 4, 6, 8, 10, 12, 16, 18, 19, 24, 27, 32, 36, 43, 48, 59, 61, 64, 67, 71, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269

Offset: 1

Author

Gus Wiseman, Jan 15 2023

Keywords

• nonn

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

The weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} i*y_i.

Examples

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   10: {1,3}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   19: {8}
   24: {1,1,1,2}
   27: {2,2,2}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   43: {14}
   48: {1,1,1,1,2}
		

Crossrefs

Positions of first appearances in A318283, unreversed A304818.

This is the sorted version of A359679.

The zero-based version is A359680, unreversed A359675.

The unreversed version is A359755, unsorted A359682.

A053632 counts compositions by weighted sum.

A112798 lists prime indices, length A001222, sum A056239, reverse A296150.

A320387 counts multisets by weighted sum, zero-based A359678.

A358136 lists partial sums of prime indices, ranked by A358137, rev A359361.

Cf. A029931, A089633, A124757, A243055, A358194, A359497, A359674, A359677, A359681, A359683.

Programs

Mathematica

nn=100;
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
ots[y_]:=Sum[i*y[[i]],{i,Length[y]}];
seq=Table[ots[Reverse[primeMS[n]]],{n,1,nn}];
Select[Range[nn],FreeQ[seq[[Range[#-1]]],seq[[#]]]&]