login
A031883
First differences of lucky numbers.
16
2, 4, 2, 4, 2, 6, 4, 6, 2, 4, 6, 6, 2, 12, 4, 2, 4, 2, 4, 8, 6, 6, 6, 6, 4, 12, 2, 4, 2, 6, 10, 8, 4, 6, 2, 18, 4, 2, 6, 4, 6, 8, 4, 8, 4, 2, 4, 18, 2, 6, 6, 10, 2, 4, 8, 6, 4, 12, 2, 6, 4, 8, 10, 8, 4, 6, 18, 6, 2, 6, 10, 6, 6, 6, 2, 4, 18, 12, 12, 2, 6, 4, 2, 6, 16, 6, 2, 10, 6, 2, 4, 12, 6, 18, 2, 4, 8
OFFSET
1,1
COMMENTS
a(n) = A254967(n,n-1). - Reinhard Zumkeller, Feb 11 2015
MATHEMATICA
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 *)
PROG
(Haskell)
a031883 n = a031883_list !! (n-1)
a031883_list = zipWith (-) (tail a000959_list) a000959_list
-- Reinhard Zumkeller, Feb 11 2015
CROSSREFS
Cf. A000959.
Cf. A254967.
Sequence in context: A056672 A037201 A128886 * A366261 A375200 A086152
KEYWORD
nonn,easy
STATUS
approved