A031883 First differences of lucky numbers.

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

Links

T. D. Noe, Table of n, a(n) for n=1..10000

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 * A086152 A194577 A334970

Adjacent sequences: A031880 A031881 A031882 * A031884 A031885 A031886

Keyword

nonn,easy

Author

Patrick De Geest

Status

approved