A032600 Difference between n-th lucky number and n-th prime number.

-1, 0, 2, 2, 2, 2, 4, 6, 8, 4, 6, 6, 8, 8, 16, 14, 10, 12, 8, 8, 14, 14, 16, 16, 14, 14, 24, 22, 24, 22, 14, 20, 22, 24, 20, 20, 32, 30, 28, 28, 26, 30, 28, 30, 34, 36, 26, 18, 32, 32, 34, 34, 42, 34, 32, 34, 34, 36, 42, 40, 44, 38, 32, 38, 44, 44, 36, 48, 44, 44, 46, 50, 48, 48, 48

Offset: 1

Author

Patrick De Geest, May 15 1998

Keywords

• sign

Links

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

Crossrefs

Cf. A000040, A000959.

Programs

Mathematica

lst = Range[1, 428, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; lst - Prime@ Range@ Length@lst (* Robert G. Wilson v *)

Formula

A000959(n) - A000040(n).

Extensions

Edited by Robert G. Wilson v, May 12 2006