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

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 17 18:02 EST 2020. Contains 330987 sequences. (Running on oeis4.)