%I A032600
%S A032600 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,
%T A032600 22,14,20,22,24,20,20,32,30,28,28,26,30,28,30,34,36,26,18,32,32,34,34,
%U A032600 42,34,32,34,34,36,42,40,44,38,32,38,44,44,36,48,44,44,46,50,48,48,48
%V A032600 -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,
%W A032600 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,
%X A032600 38,32,38,44,44,36,48,44,44,46,50,48,48,48
%N A032600 Difference between n-th lucky number and n-th prime number.
%H A032600 T. D. Noe, <a href="b032600.txt">Table of n, a(n) for n=1..10000</a>
%F A032600 A000959(n) - A000040(n).
%t A032600 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 *)
%Y A032600 Cf. A000040, A000959.
%Y A032600 Sequence in context: A008363 A097198 A126663 this_sequence A103260 A060824 
               A162799
%Y A032600 Adjacent sequences: A032597 A032598 A032599 this_sequence A032601 A032602 
               A032603
%K A032600 sign
%O A032600 1,3
%A A032600 Patrick De Geest (pdg(AT)worldofnumbers.com), May 15, 1998.
%E A032600 Edited by Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006