login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A366748
Numbers k such that (sum of odd prime indices of k) = (sum of even prime indices of k).
4
1, 12, 70, 90, 112, 144, 286, 325, 462, 520, 525, 594, 646, 675, 832, 840, 1045, 1080, 1326, 1334, 1344, 1666, 1672, 1728, 1900, 2142, 2145, 2294, 2465, 2622, 2695, 2754, 3040, 3432, 3465, 3509, 3526, 3900, 3944, 4186, 4255, 4312, 4455, 4845, 4864, 4900, 4982
OFFSET
1,2
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.
FORMULA
These are numbers k such that A346697(k) = A346698(k).
EXAMPLE
The terms together with their prime indices begin:
1: {}
12: {1,1,2}
70: {1,3,4}
90: {1,2,2,3}
112: {1,1,1,1,4}
144: {1,1,1,1,2,2}
286: {1,5,6}
325: {3,3,6}
462: {1,2,4,5}
520: {1,1,1,3,6}
525: {2,3,3,4}
594: {1,2,2,2,5}
646: {1,7,8}
675: {2,2,2,3,3}
832: {1,1,1,1,1,1,6}
840: {1,1,1,2,3,4}
For example, 525 has prime indices {2,3,3,4}, and 3+3 = 2+4, so 525 is in the sequence.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[1000], Total[Select[prix[#], OddQ]]==Total[Select[prix[#], EvenQ]]&]
CROSSREFS
For prime factors instead of indices we have A019507.
Partitions of this type are counted by A239261.
For count instead of sum we have A325698, distinct A325700.
The LHS (sum of odd prime indices) is A366528, triangle A113685.
The RHS (sum of even prime indices) is A366531, triangle A113686.
These are the positions of zeros in A366749.
A000009 counts partitions into odd parts, ranked by A066208.
A035363 counts partitions into even parts, ranked by A066207.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A257991 counts odd prime indices, even A257992.
A300061 lists numbers with even sum of prime indices, odd A300063.
Sequence in context: A067702 A163193 A088832 * A198311 A374977 A060930
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 23 2023
STATUS
approved