OFFSET
0,9
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
MATHEMATICA
dtn[ L_ ] := Fold[ 2#1+#2&, 0, L ]; f[ n_ ] := dtn[ Map[ Abs[ #[ [ 1 ] ]-#[ [ 2 ] ] ]&, Partition[ IntegerDigits[ n, 2 ], 2, 1 ] ] ]; Table[ f[ f[ n ] ], {n, 0, 120} ]
PROG
CROSSREFS
KEYWORD
AUTHOR
EXTENSIONS
More terms from Erich Friedman
STATUS
approved