|
|
A353835
|
|
Number of distinct run-sums of the prime indices of n.
|
|
26
|
|
|
0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 2, 2, 2, 2, 1, 2, 2, 1, 1, 3, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 3, 1, 2, 2, 3, 1, 2, 1, 2, 2, 2, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
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 sequence of runs of a sequence consists of its maximal consecutive constant subsequences when read left-to-right. For example, the runs of (2,2,1,1,1,3,2,2) are (2,2), (1,1,1), (3), (2,2), with sums (4,3,3,4).
|
|
LINKS
|
|
|
EXAMPLE
|
The prime indices of 3780 are {1,1,2,2,2,3,4}, with distinct run-sums {2,3,4,6}, so a(3780) = 4.
The prime indices of 8820 are {1,1,2,2,3,4,4}, with distinct run-sums {2,3,4,8}, so a(8820) = 4.
The prime indices of 13860 are {1,1,2,2,3,4,5}, with distinct run-sums {2,3,4,5}, so a(13860) = 4.
The prime indices of 92400 are {1,1,1,1,2,3,3,4,5}, with distinct run-sums {2,4,5,6}, so a(92400) = 4.
|
|
MATHEMATICA
|
Table[Length[Union[Cases[If[n==1, {}, FactorInteger[n]], {p_, k_}:>PrimePi[p]*k]]], {n, 100}]
|
|
CROSSREFS
|
Positions of first appearances are A002110.
A version for binary expansion is A165413.
The case of all distinct run-sums is ranked by A353838, counted by A353837.
The version for compositions is A353849.
A005811 counts runs in binary expansion.
A351014 counts distinct runs in standard compositions.
A353832 represents the operation of taking run-sums of a partition.
Cf. A071625, A073093, A116608, A175413, A181819, A333755, A353839, A353848, A353850, A353852, A353867.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|