A220115 -id:A220115 - cp's OEIS frontend

A220117 First occurrence of n in A220115.

0, 3, 13, 47, 55, 254, 767, 987, 6909, 16127, 28657, 28670, 125951, 196575, 393213, 4160255, 4177911, 25157623, 25157631, 46137325, 67088375, 268296191, 268434303, 268435455

Offset: 0

Alex Ratushnyak, Dec 05 2012

Least k such that A000120(k) - A007895(k) = n.

Cf. A000120, A007895, A220115, A220118.

A220118 First occurrence of -n in A220115.

Original entry on oeis.org

0, 4, 32, 320, 520, 512, 12288, 32768, 131584, 266240, 1310720, 8388608, 4325376, 39059456, 100663296

Offset: 0

Alex Ratushnyak, Dec 05 2012

Least k such that A007895(k) - A000120(k) = n.

Cf. A000120, A007895, A220115, A220117.

A220116 Numbers k such that the number of 1's in binary expansion of k equals the number of terms in Zeckendorf representation of k.

Original entry on oeis.org

0, 1, 2, 6, 8, 9, 10, 18, 19, 24, 25, 28, 36, 38, 41, 44, 46, 49, 50, 51, 52, 53, 54, 68, 69, 70, 73, 75, 81, 83, 84, 85, 86, 98, 100, 101, 104, 106, 108, 112, 114, 116, 120, 122, 131, 139, 141, 143, 148, 156, 162, 163, 168, 169, 172, 184, 200, 209, 210, 211

Offset: 1

Alex Ratushnyak, Dec 05 2012

Indices of 0's in A220115.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000120, A007895, A220115.

With[{z = Select[Range[0, 1350], BitAnd[#, 2 #] == 0 &]}, Select[Range[0, Length[z] - 1], DigitCount[#, 2, 1] == DigitCount[z[[# + 1]] , 2, 1] &]] (* Amiram Eldar, Jul 27 2023 *)

cp's OEIS Frontend

A220117 First occurrence of n in A220115.

Views

Author

Keywords

Comments

Crossrefs

A220118 First occurrence of -n in A220115.

Views

Author

Keywords

Comments

Crossrefs

A220116 Numbers k such that the number of 1's in binary expansion of k equals the number of terms in Zeckendorf representation of k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica