|
%I #12 May 19 2022 16:44:55
%S 2,9,11,13,16,19,23,24,26,28,29,31,36,37,39,40,41,43,44,47,49,50,51,
%T 54,56,60,66,67,68,70,72,73,75,77,78,79,80,81,84,86,87,88,91,92,94,95,
%U 99,101,102,103,105,108,111,115,121,123,126,127,132,134,135,136,138
%N Numbers k such that floor((3/2)^k) = A002379(k) is even.
%H Amiram Eldar, <a href="/A073634/b073634.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[0, 150], EvenQ[Floor[(3/2)^#]] &] (* _Amiram Eldar_, May 19 2022 *)
%Y Cf. A002379, A073632 (complement), A073633.
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Aug 29 2002
%E Wrong term (0) removed by _Amiram Eldar_, May 19 2022
|
