A073633 -id:A073633 - cp's OEIS frontend

A073632 Numbers k such that floor((3/2)^k) = A002379(k) is odd.

0, 1, 3, 4, 5, 6, 7, 8, 10, 12, 14, 15, 17, 18, 20, 21, 22, 25, 27, 30, 32, 33, 34, 35, 38, 42, 45, 46, 48, 52, 53, 55, 57, 58, 59, 61, 62, 63, 64, 65, 69, 71, 74, 76, 82, 83, 85, 89, 90, 93, 96, 97, 98, 100, 104, 106, 107, 109, 110, 112, 113, 114, 116, 117, 118, 119, 120

Offset: 1

Benoit Cloitre, Aug 29 2002

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

Cf. A002379, A073633, A073634 (complement).

Select[Range[0, 120], OddQ[Floor[(3/2)^#]] &] (* Jayanta Basu, Jul 03 2013 *)

isok(k) = floor((3/2)^k) % 2; \\ Michel Marcus, May 19 2022

a(1) = 0 inserted by Amiram Eldar, May 19 2022

A073634 Numbers k such that floor((3/2)^k) = A002379(k) is even.

Original entry on oeis.org

2, 9, 11, 13, 16, 19, 23, 24, 26, 28, 29, 31, 36, 37, 39, 40, 41, 43, 44, 47, 49, 50, 51, 54, 56, 60, 66, 67, 68, 70, 72, 73, 75, 77, 78, 79, 80, 81, 84, 86, 87, 88, 91, 92, 94, 95, 99, 101, 102, 103, 105, 108, 111, 115, 121, 123, 126, 127, 132, 134, 135, 136, 138

Offset: 1

Benoit Cloitre, Aug 29 2002

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

Cf. A002379, A073632 (complement), A073633.

Select[Range[0, 150], EvenQ[Floor[(3/2)^#]] &] (* Amiram Eldar, May 19 2022 *)

Wrong term (0) removed by Amiram Eldar, May 19 2022

A118502 Numbers k that divide floor((4/3)^k).

Original entry on oeis.org

1, 7, 14, 21, 66, 205, 583, 837, 1259, 1631, 2178, 6346, 15851, 58371, 61804, 129196, 409879, 1670753

Offset: 1

Ryan Propper, May 06 2006

Next term after 409879 is greater than 10^6.

			floor((4/3)^21) = 420 and 420 is divisible by 21, so 21 is in the sequence.

Cf. A073633.

t = 1; Do[t = 4t/3; If[Mod[Floor[t], n] == 0, Print[n]], {n, 10^6}]

a(18) from Ryan Propper, Jul 21 2006

cp's OEIS Frontend

A073632 Numbers k such that floor((3/2)^k) = A002379(k) is odd.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A073634 Numbers k such that floor((3/2)^k) = A002379(k) is even.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A118502 Numbers k that divide floor((4/3)^k).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions