A073632 - OEIS

%I #18 May 20 2022 10:25:30

%S 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,

%T 42,45,46,48,52,53,55,57,58,59,61,62,63,64,65,69,71,74,76,82,83,85,89,

%U 90,93,96,97,98,100,104,106,107,109,110,112,113,114,116,117,118,119,120

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

%H Amiram Eldar, <a href="/A073632/b073632.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[0, 120], OddQ[Floor[(3/2)^#]] &] (* _Jayanta Basu_, Jul 03 2013 *)

%o (PARI) isok(k) = floor((3/2)^k) % 2; \\ _Michel Marcus_, May 19 2022

%Y Cf. A002379, A073633, A073634 (complement).

%K easy,nonn

%O 1,3

%A _Benoit Cloitre_, Aug 29 2002

%E a(1) = 0 inserted by _Amiram Eldar_, May 19 2022