login
A032600
Difference between n-th lucky number and n-th prime number.
5
-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,3
FORMULA
A000959(n) - A000040(n).
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 *)
CROSSREFS
Sequence in context: A261611 A097198 A126663 * A103260 A060824 A334125
KEYWORD
sign
AUTHOR
Patrick De Geest, May 15 1998
EXTENSIONS
Edited by Robert G. Wilson v, May 12 2006
STATUS
approved