The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A270435 Positions of zeros in A270434; numbers n for which A270432(n) = A270433(n). 2
 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 IntSeq-library) (define A270435 (ZERO-POS 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 15 15:16 EDT 2021. Contains 345049 sequences. (Running on oeis4.)