%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