OFFSET
1,2
COMMENTS
First differs from A325460 in having 110.
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 k-based partial alternating sums of a finite sequence q are given by pas(q,k)_j = (-1)^j * k + Sum_{i=1..j} (-1)^(i+j) * q_i. This is a signed version of the partial sums transformation, inverse to the "first sums" transformation.
Also numbers whose prime indices are the first sums of some finite strictly increasing sequence of nonnegative integers beginning with 0, where the first sums of a nonempty sequence (a, b, c, d, ...) are (a+b, b+c, c+d, ...).
Conjecture: Reversed integer partitions of this type (with strictly increasing 0-based partial alternating sums) are counted by A053251.
EXAMPLE
The prime indices of 10 are (1,3), with 0-based partial alternating sums (0,1,2), which are strictly increasing, so 10 is in the sequence.
The prime indices of 130 are (1,3,6), with 0-based partial alternating sums (0,1,2,4), which are strictly increasing, so 130 is in the sequence.
The terms together with their prime indices begin:
1: {}
2: {1}
3: {2}
5: {3}
7: {4}
10: {1,3}
11: {5}
13: {6}
14: {1,4}
17: {7}
19: {8}
22: {1,5}
23: {9}
26: {1,6}
Sequences of this type grouped by sum begin:
(1) (2) (3) (4) (5) (6) (7) (8) (9) (10)
(1,3) (1,4) (1,5) (1,6) (1,7) (1,8) (1,9)
(2,5) (2,6) (2,7) (2,8)
(1,3,5) (3,7)
(1,3,6)
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
pas[y_, k_]:=Table[(-1)^j*k+Sum[(-1)^(i+j)*y[[i]], {i, j}], {j, 0, Length[y]}];
Select[Range[100], Less@@pas[prix[#], 0]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 05 2026
STATUS
approved
