A065644 a(n) is the smallest integer k such that floor((3/2)^k)/floor((3/2)^n) is an integer greater than 1.

2, 9, 10, 8, 18, 27, 26, 20, 24, 25, 43, 44, 229, 230, 2242, 162, 3776, 2123, 2697, 11517, 207, 1824, 35102, 6767, 6768, 50320, 51815, 1438, 50419, 50420, 51954, 51955

Offset

1,1

Links

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

Example

a(2) = 9 because floor((3/2)^9)/floor((3/2)^2) = 19 is the smallest integer value > 1 of the form floor((3/2)^k)/floor((3/2)^2).

Mathematica

Array[Block[{k = 2}, While[Nand[# > 1, IntegerQ@ #] &[Floor[(3/2)^k]/Floor[(3/2)^#]], k++]; k] &, 32] (* Michael De Vlieger, Jun 14 2018 *)

Prog

(PARI) a(n) = { my(q=floor((3/2)^n), p=0); while (my(t=floor((3/2)^p)); t < 2*q || t % q, p++); p } \\ Harry J. Smith, Oct 25 2009

Crossrefs

Cf. A002379.

Sequence in context: A014182 A293037 A131463 * A043065 A077214 A378073

Adjacent sequences: A065641 A065642 A065643 * A065645 A065646 A065647

Keyword

nonn

Author

Benoit Cloitre, Dec 03 2001

Extensions

Edited by Harry J. Smith, Oct 25 2009

10 more terms from Harry J. Smith, Oct 25 2009

Edited by Jon E. Schoenfield, Jun 14 2018

Status

approved