OFFSET
1,9
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2272
MATHEMATICA
Table[Range[0, #] &@ Total@ Flatten@ Map[Abs@ Differences@ # &,
Partition[IntegerDigits[n, 2], 2, 1]], {n, 34}] // Flatten (* Michael De Vlieger, May 09 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 25 2013
STATUS
approved