login
A366533
Sum of even prime indices of n divided by 2.
15
0, 0, 1, 0, 0, 1, 2, 0, 2, 0, 0, 1, 3, 2, 1, 0, 0, 2, 4, 0, 3, 0, 0, 1, 0, 3, 3, 2, 5, 1, 0, 0, 1, 0, 2, 2, 6, 4, 4, 0, 0, 3, 7, 0, 2, 0, 0, 1, 4, 0, 1, 3, 8, 3, 0, 2, 5, 5, 0, 1, 9, 0, 4, 0, 3, 1, 0, 0, 1, 2, 10, 2, 0, 6, 1, 4, 2, 4, 11, 0, 4, 0, 0, 3, 0, 7
OFFSET
1,7
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.
LINKS
FORMULA
a(n) = A366531(n)/2.
EXAMPLE
The prime indices of 198 are {1,2,2,5}, so a(198) = (2+2)/2 = 2.
MAPLE
f:= proc(n) local F, t;
F:= map(t -> [numtheory:-Pi(t[1]), t[2]], ifactors(n)[2]);
add(`if`(t[1]::even, t[1]*t[2]/2, 0), t=F)
end proc:
map(f, [$1..100]); # Robert Israel, Nov 22 2023
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Total[Select[prix[n], EvenQ]]/2, {n, 100}]
CROSSREFS
Zeros are A066208, counted by A000009.
The triangle for this statistic (without zeros) is A174713.
The un-halved odd version is A366528.
The un-halved version is A366531.
A066207 lists numbers with all even prime indices, counted by A035363.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A113685 counts partitions by sum of odd parts, even version A113686.
A239261 counts partitions with (sum of odd parts) = (sum of even parts).
A257991 counts odd prime indices, even A257992.
A346697 adds up odd-indexed prime indices, even-indexed A346698.
A365067 counts partitions by sum of odd parts (without zeros).
A366322 lists numbers with not all prime indices even, counted by A086543.
Sequence in context: A352561 A035220 A227618 * A340683 A221645 A216176
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 23 2023
STATUS
approved