A073632 -id:A073632 - cp's OEIS frontend

A073633 Numbers k that divide floor((3/2)^k) = A002379(k).

1, 2, 3, 16, 43, 50, 56, 193, 283, 961, 970, 4958, 9439, 10493, 11375, 18552, 57051, 81602, 617287, 917186, 1525995, 5107085, 9162821, 22008620

Offset: 1

Benoit Cloitre, Aug 29 2002

No more terms through 10^6. - Ryan Propper, May 05 2006

The first 8 terms are all in A032863, all known subsequent terms, i.e., at least up to a(21), are not in A032863. - M. F. Hasler, Oct 05 2018

Cf. A002379, A073632, A073634.

t = 1; Do[t = 3t/2; If[ Mod[ Floor[t], n] == 0, Print[n]], {n, 500000}] (* Robert G. Wilson v, Apr 06 2006 *)

a=1;for(n=1,10^6,a*=3;b=shift(a,-n);if(b%n==0,print1(n,","))) \\ Robert Gerbicz, Aug 23 2006

P=1;for(n=1,oo,(P*=3)>>n%n||print1(n",")) \\ M. F. Hasler, Oct 05 2018

from gmpy2 import mpz, t_div_2exp, t_mod
A073633_list, m = [], mpz(1)
for n in range(1,10**9):
    m *= 3
    if t_mod(t_div_2exp(m,n),n) == 0:
        A073633_list.append(n) # Chai Wah Wu, Mar 30 2020

More terms from Michel ten Voorde Jun 20 2003
2 more terms from Ryan Propper, May 05 2006
More terms from Robert Gerbicz, Aug 23 2006
a(22)-a(24) from Chai Wah Wu, Mar 30 2020

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

cp's OEIS Frontend

A073633 Numbers k that divide floor((3/2)^k) = A002379(k).

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

PARI