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,2

Comments

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

Links

Table of n, a(n) for n=1..24.

Mathematica

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

Prog

(PARI) a=1; for(n=1, 10^6, a*=3; b=shift(a, -n); if(b%n==0, print1(n, ", "))) \\ Robert Gerbicz, Aug 23 2006
(PARI) P=1; for(n=1, oo, (P*=3)>>n%n||print1(n", ")) \\ M. F. Hasler, Oct 05 2018
(Python)
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

Crossrefs

Cf. A002379, A073632, A073634.

Sequence in context: A350025 A072684 A344747 * A012357 A012701 A012356

Adjacent sequences: A073630 A073631 A073632 * A073634 A073635 A073636

Keyword

more,nonn

Author

Benoit Cloitre, Aug 29 2002

Extensions

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

Status

approved