%I A055728
%S A055728 0,2,9,43,211,1300,8616,62446,469146
%N A055728 Number of prime lucky numbers <10^n.
%H A055728 <a href="Sindx_Pri.html#primepop">Index entries for sequences related 
               to numbers of primes in various ranges</a>
%t A055728 lst = Range[1, 10^8, 2]; i = 2; While[ i <= (len = Length@lst) && (k 
               = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Table[Length@ 
               Select[lst, PrimeQ@# && # < 10^n &], {n, 0, 8}] - Robert G. Wilson 
               v (rgwv(at)rgwv.com), May 12 2006
%Y A055728 This is the intersection of the lucky numbers (A000959) and the prime 
               numbers (A000040).
%Y A055728 Sequence in context: A121365 A018960 A002310 this_sequence A006795 A055824 
               A020113
%Y A055728 Adjacent sequences: A055725 A055726 A055727 this_sequence A055729 A055730 
               A055731
%K A055728 nonn
%O A055728 0,2
%A A055728 Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
%E A055728 a(7) & a(8) from Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006