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!)
 A283973 Numbers n such that A007306(n) = A283986(n); positions of zeros in A283988. 5
 1, 3, 4, 9, 10, 12, 13, 15, 16, 21, 22, 27, 28, 33, 36, 37, 48, 49, 60, 61, 64, 78, 84, 85, 87, 88, 90, 91, 93, 94, 99, 100, 102, 103, 105, 106, 108, 109, 115, 129, 130, 133, 135, 136, 141, 144, 145, 153, 159, 160, 162, 171, 172, 189, 190, 192, 193, 195, 196, 213, 214, 223, 225, 226, 232, 240, 241, 244, 249, 250, 252, 255, 256 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Equally, numbers n for which A007306(n) = A283987(n), or equally, numbers n for which A283986(n) = A283987(n). Numbers n such that the binary representations of A002487(n-1) and A002487(n) have no 1-bits in common shared positions. LINKS Antti Karttunen, Table of n, a(n) for n = 1..10000 MATHEMATICA a[0] = 0; a[1] = 1; a[n_] := If[EvenQ@ n, a[n/2], a[(n - 1)/2] + a[(n + 1)/2]]; Map[Function[n, If[EvenQ@ n, a[n/2], BitOr[a[#], a[# + 1]] &[(n - 1)/2]]], 2 Range[99] - 1] (* Michael De Vlieger, Mar 22 2017 *) PROG (Scheme, with Antti Karttunen's IntSeq-library) (define A283973 (ZERO-POS 1 1 A283988)) (PARI) A(n) = if(n<2, n, if(n%2, A(n\2) + A((n + 1)/2), A(n/2))); D(n) = if(n<1, 1, sum(k=0, n, binomial(n + k - 1, 2*k)%2)) /* A007306 */ for(n=1, 300, if(bitor(A(n - 1), A(n)) == D(n), print1(n, ", "))) \\ Indranil Ghosh, Mar 23 2017 CROSSREFS Cf. A283974 (complement). Cf. A002487, A007306, A283986, A283987, A283988. Sequence in context: A178462 A010376 A010388 * A276672 A010400 A010439 Adjacent sequences:  A283970 A283971 A283972 * A283974 A283975 A283976 KEYWORD nonn,base AUTHOR Antti Karttunen, Mar 21 2017 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 5 08:21 EDT 2020. Contains 334829 sequences. (Running on oeis4.)