A073634 Numbers k such that floor((3/2)^k) = A002379(k) is even.
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
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[0, 150], EvenQ[Floor[(3/2)^#]] &] (* Amiram Eldar, May 19 2022 *)
Extensions
Wrong term (0) removed by Amiram Eldar, May 19 2022