1,1
a(n) = A254967(n,n-1). - Reinhard Zumkeller, Feb 11 2015
T. D. Noe, Table of n, a(n) for n=1..10000
lst = Range[1, 600, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Rest@lst - Most@lst (* Robert G. Wilson v, May 12 2006 *)
(Haskell)
a031883 n = a031883_list !! (n-1)
a031883_list = zipWith (-) (tail a000959_list) a000959_list
-- Reinhard Zumkeller, Feb 11 2015
Cf. A000959.
Cf. A254967.
Sequence in context: A056672 A037201 A128886 * A086152 A194577 A274708
Adjacent sequences: A031880 A031881 A031882 * A031884 A031885 A031886
nonn,easy
Patrick De Geest
approved