OFFSET
0,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..10000
FORMULA
a(0) = 0; a(1) = 1; for n > 1, a(n) = 1 + 4*A092246(n-1).
MATHEMATICA
Join[{0, 1}, 1 + 4 Select[Range[1, 251, 2], OddQ[Total[IntegerDigits[#, 2]]]&]] (* Jean-François Alcover, Mar 15 2016 *)
PROG
(Scheme)
(Python)
def A268673(n): return (((m:=n-2)<<4)+(13 if m.bit_count()&1 else 5)) if n>1 else n # Chai Wah Wu, Mar 03 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 19 2016
STATUS
approved