0,2

Index entries for sequences related to numbers of primes in various ranges

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

This is the intersection of the lucky numbers (A000959) and the prime numbers (A000040).

Sequence in context: A121365 A018960 A002310 this_sequence A006795 A055824 A020113

Adjacent sequences: A055725 A055726 A055727 this_sequence A055729 A055730 A055731

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000

a(7) & a(8) from Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006