|
|
A356413
|
|
Numbers with an equal sum of the even and odd exponents in their prime factorizations.
|
|
4
|
|
|
1, 60, 84, 90, 126, 132, 140, 150, 156, 198, 204, 220, 228, 234, 260, 276, 294, 306, 308, 315, 340, 342, 348, 350, 364, 372, 380, 414, 444, 460, 476, 490, 492, 495, 516, 522, 525, 532, 550, 558, 564, 572, 580, 585, 620, 636, 644, 650, 666, 693, 708, 726, 732, 735
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
A085987 is a subsequence. Terms that are not in A085987 are 1, 2160, 3024, ...
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
f[p_, e_] := (-1)^e*e; q[1] = True; q[n_] := Plus @@ f @@@ FactorInteger[n] == 0; Select[Range[1000], q]
|
|
PROG
|
(PARI) isok(n) = {my(f = factor(n)); sum(i = 1, #f~, (-1)^f[i, 2]*f[i, 2]) == 0};
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|