A359755 Positions of first appearances in the sequence of weighted sums of prime indices (A304818).
1, 2, 3, 4, 6, 7, 8, 10, 12, 15, 16, 18, 20, 24, 26, 28, 36, 40, 46, 48, 50, 52, 56, 62, 68, 74, 76, 86, 88, 92, 94, 106, 107, 118, 122, 124, 131, 134, 136, 142, 146, 152, 158, 164, 166, 173, 178, 188, 193, 194, 199, 202, 206, 214, 218, 226, 229, 236, 239, 254
Offset: 1
Keywords
Examples
The terms together with their prime indices begin: 1: {} 2: {1} 3: {2} 4: {1,1} 6: {1,2} 7: {4} 8: {1,1,1} 10: {1,3} 12: {1,1,2} 15: {2,3} 16: {1,1,1,1} 18: {1,2,2} 20: {1,1,3} 24: {1,1,1,2}
Programs
-
Mathematica
nn=1000; 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[primeMS[n]],{n,1,nn}]; Select[Range[nn],FreeQ[seq[[Range[#-1]]],seq[[#]]]&]
Comments