p[n_, k_]=Product[(E/(2-E))^i, {i, 1, n}]/Product[(E/(2-E))^i, {i, Floor[n/2^k], n}], a(n) = Sum[Floor[p[n, k]/(8*p[n-1, k])], {k, 1, 8}].
A088663
p[n_, k_]=Product[(E/(2-E))^i, {i, 1, n}]/Product[(E/(2-E))^i, {i, Floor[n/2^k], n}], a(n) = Sum[Floor[p[n, k]/(8*p[n-1, k])], {k, 1, 8}].
Terms
- a(0) =0a(1) =0a(2) =-1a(3) =0a(4) =1a(5) =0a(6) =-8a(7) =0a(8) =25a(9) =0a(10) =-97a(11) =0a(12) =367a(13) =0a(14) =-1398a(15) =0a(16) =5259a(17) =0a(18) =-19878a(19) =0a(20) =75319a(21) =0a(22) =-285137a(23) =0a(24) =1078711a(25) =0a(26) =-4081933a(27) =0a(28) =15449144a(29) =0
External references
- oeis: A088663