OFFSET
0,3
FORMULA
a(n) = 2^n - A048764(2^n). - R. J. Mathar, Mar 16 2008
EXAMPLE
a(6) = 2^6 - 4! = 40
a(7) = 2^7 - 5! = 8
a(8) = 2^8 - 5! = 136
MAPLE
A048764 := proc(n) local a; for a from 1 do if a! > n then RETURN((a-1)!); fi ; od: end: A135996 := proc(n) 2^n-A048764(2^n) ; end: seq(A135996(n), n=0..60) ; # R. J. Mathar, Mar 16 2008
MATHEMATICA
d2n[n_]:=Module[{n2=2^n, fcts=Reverse[Range[100]!]}, n2-Select[fcts, #<= n2&, 1]]; Flatten[Array[d2n, 40, 0]] (* Harvey P. Dale, Aug 22 2012 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ctibor O. Zizka, Mar 03 2008, Mar 16 2008
EXTENSIONS
More terms from R. J. Mathar, Mar 16 2008
STATUS
approved