A139103 Numbers that show the distribution of prime numbers up to the n-th prime using "0" for primes and "1" for nonprime numbers.
10, 100, 10010, 1001010, 10010101110, 1001010111010, 10010101110101110, 1001010111010111010, 10010101110101110101110, 10010101110101110101110111110, 1001010111010111010111011111010, 1001010111010111010111011111010111110, 10010101110101110101110111110101111101110
Offset: 1
Links
Crossrefs
Programs
-
Mathematica
Table[ sum = 0; For[i = 1, i <= Prime[n] , i++, sum = sum*2; If[! PrimeQ[i], sum++]]; IntegerString[sum, 2], {n, 1, 20}] (* Robert Price, Apr 03 2019 *)
-
PARI
a(n) = fromdigits(vector(prime(n), k, !isprime(k)), 10); \\ Michel Marcus, Apr 04 2019
Extensions
a(12)-a(13) from Robert Price, Apr 03 2019
Comments