A118502 Numbers k that divide floor((4/3)^k).
1, 7, 14, 21, 66, 205, 583, 837, 1259, 1631, 2178, 6346, 15851, 58371, 61804, 129196, 409879, 1670753
Offset: 1
Examples
floor((4/3)^21) = 420 and 420 is divisible by 21, so 21 is in the sequence.
Crossrefs
Cf. A073633.
Programs
-
Mathematica
t = 1; Do[t = 4t/3; If[Mod[Floor[t], n] == 0, Print[n]], {n, 10^6}]
Extensions
a(18) from Ryan Propper, Jul 21 2006
Comments