OFFSET
1,1
COMMENTS
These are the values of A185333 for even n.
Conjecture: a(n) = 2^(n-1) + 2^((n-2^t)/(2^(t+1))), where t = number of factors of 2 in n.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A185333(2n).
MATHEMATICA
f[n_] := Block[{k = IntegerExponent[n, 2]}, 2^n/2 + 2^((n - 2^k)/(2^(k + 1)))]; Array[f, 32] (* Robert G. Wilson v, Aug 08 2011 *)
PROG
(Python)
def a185333(n):
if n%2: return 2**((n + 1)//2)
k=bin(n - 1)[2:].count('1') - bin(n)[2:].count('1')
return 2**(n//2 - 1) + 2**((n//2 - 2**k)//(2**(k + 1)))
def a(n): return a185333(2*n)
print([a(n) for n in range(1, 101)]) # Indranil Ghosh, Jun 29 2017, after the formula
CROSSREFS
KEYWORD
nonn
AUTHOR
Tony Bartoletti, Feb 20 2011
STATUS
approved