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

Author

Patrick De Geest

Keywords

• nonn
• easy

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

Crossrefs

Cf. A000959.

Cf. A254967.

Programs

Haskell

a031883 n = a031883_list !! (n-1)
a031883_list = zipWith (-) (tail a000959_list) a000959_list
-- 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 *)