login
a(n) = b(n) - c(n) where b(n) = [ (3/2)^n ] and c(n) is the n-th number not in sequence b.
1

%I #12 Jun 21 2019 22:50:34

%S -3,-4,-5,-4,-3,-1,4,11,23,41,68,110,174,270,415,633,961,1451,2189,

%T 3297,4958,7451,11191,16802,25218,37842,56780,85186,127797,191712,

%U 287586,431398,647117,970696,1456065,2184119,3276200,4914322

%N a(n) = b(n) - c(n) where b(n) = [ (3/2)^n ] and c(n) is the n-th number not in sequence b.

%H G. C. Greubel, <a href="/A014250/b014250.txt">Table of n, a(n) for n = 1..1000</a>

%t m:=40; c:= Complement[Range[2*m], Floor[(3/2)^Range[2*m]]]; Table[Floor[(3/2)^n] - c[[n]], {n,m}] (* _G. C. Greubel_, Jun 19 2019 *)

%Y Cf. A002379.

%K sign

%O 1,1

%A _Clark Kimberling_

%E a(38) corrected by _Sean A. Irvine_, Oct 17 2018