



96, 220, 222, 226, 272, 274, 276, 288, 376, 380, 394, 396, 398, 412, 414, 416, 422, 434, 448, 458, 462, 464, 466, 472, 476, 480, 482, 484, 486, 506, 508, 512, 514, 522, 524, 528, 590, 592, 594, 596, 618, 620, 622, 636, 638, 648, 652, 654, 656, 658, 662, 678, 680, 682, 684, 686, 688, 704, 706, 708, 992, 1008, 1016, 1024
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Numbers n for which in range 1 .. n there are exactly same number of such s that A048673(s) and A064216(s) are of the same parity than there are such t that A048673(t) and A064216(t) are of opposite parity.
No other terms after a(2651) = 2346398 in range 1 .. 2^25.


LINKS

Antti Karttunen, Table of n, a(n) for n = 1..2651


MATHEMATICA

nn = 2048; f[n_] := (Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n; g[n_] := Times @@ Power[If[# == 1, 1, NextPrime[#, 1]] & /@ First@ #, Last@ #] &@ Transpose@ FactorInteger[2 n  1]; s = Select[Range@ nn, Xor[EvenQ@ f@ #, OddQ@ g@ #] &]; t = Select[Range@ nn, Xor[EvenQ@ f@ #, EvenQ@ g@ #] &]; Flatten@ Position[Table[Count[s, k_ /; k <= n]  Count[t, k_ /; k <= n], {n, nn/2}], n_ /; n == 0] (* Michael De Vlieger, Mar 19 2016 *)


PROG

(Scheme, with Antti Karttunen's IntSeqlibrary)
(define A270435 (ZEROPOS 1 1 A270434))


CROSSREFS

Cf. A048673, A064216, A270432, A270433, A270434.
Sequence in context: A044809 A115437 A241930 * A110231 A108609 A125511
Adjacent sequences: A270432 A270433 A270434 * A270436 A270437 A270438


KEYWORD

nonn


AUTHOR

Antti Karttunen, Mar 17 2016


STATUS

approved



