OFFSET
0,7
COMMENTS
All vanishing entries are a(A272898(k)) = 0, k >= 1. - Wolfdieter Lang, May 24 2016
LINKS
Indranil Ghosh, Table of n, a(n) for n = 0..10000
FORMULA
EXAMPLE
2^10 = 1024, 2^11 = 2048, 2^12 = 4096, 2^13 = 8192.
So a(10) = 1 - 3 = -2, a(11) = 0 - 4 = -4, a(12) = 1 - 3 = -2, a(13) = 2 - 2 = 0.
MATHEMATICA
Table[Count[#, _?OddQ] - Count[#, _?EvenQ] &@ IntegerDigits[2^n], {n, 0, 100}] (* Michael De Vlieger, May 09 2016 *)
PROG
(Ruby)
def a(n)
str = (2 ** n).to_s
str.size - str.split('').map(&:to_i).select{|i| i % 2 == 0}.size * 2
end
(0..n).each{|i| p a(i)}
(PARI) a(n) = #select(x -> x%2, digits(2^n)) - #select(x -> !(x%2), digits(2^n));
for(n=0, 78, print1(a(n), ", ")) \\ Indranil Ghosh, Mar 13 2017
(Python)
def A272896(n):
....x=y=0
....for i in str(2**n):
........if int(i)%2: x+=1
........else: y+=1
....return x - y # Indranil Ghosh, Mar 13 2017
CROSSREFS
KEYWORD
sign,base
AUTHOR
Seiichi Manyama, May 09 2016
STATUS
approved