A254792 - OEIS

%I #5 Feb 08 2015 05:21:39

%S 1,2,4,5,7,8,9,14,17,10,15,26,20,16,34,19,18,31,23,21,24,25,35,38,37,

%T 39,75,40,41,76,43,42,83,44,45,88,46,50,95,52,55,106,56,58,112,61,62,

%U 120,65,67,131,68,69,136,71,72,142,73,74,144,80,79,81,78,84

%N Absolute first differences of A254788.

%C a(n) = abs(A254788(n)-A254788(n+1));

%C by definition of A254788:

%C (i) all terms are distinct, (ii) disjoint to A254793.

%H Reinhard Zumkeller, <a href="/A254792/b254792.txt">Table of n, a(n) for n = 1..10000</a>

%o (Haskell)

%o a254792 n = a254792_list !! (n-1)

%o a254792_list = map abs $ zipWith (-) a254788_list $ tail a254788_list

%Y Cf. A254788, A254793 (complement).

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Feb 08 2015