OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
a(38) corrected by Sean A. Irvine, Oct 17 2018
STATUS
approved