A231726
Count of the first 10^n primes containing at least one 0's digit.
Original entry on oeis.org
0, 9, 181, 2878, 38298, 442776, 4937680, 54997237, 604120810, 6420599395, 67512632285
Offset: 1
a(2)=9 because there are 9 primes not greater than 547 (the 100th prime) that contain a zero digit. Namely: 101, 103, 107, 109, 307, 401, 409, 503, 509.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 0], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
A231792
Count of the first 10^n primes containing at least one 5's digit.
Original entry on oeis.org
1, 15, 292, 3365, 39360, 464466, 5262871, 56702805, 607358478, 6463119473, 68932485429
Offset: 1
a(2)=15 because there are 15 primes not greater than 541 (the 100th prime) that contain a 5's digit. Namely: 5, 53 59, 151, 157, 251, 257, 353, 359, 457, 503, 509, 521, 523, 541.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 5], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
A231796
Count of the first 10^n primes containing at least one 9's digit.
Original entry on oeis.org
2, 31, 380, 4990, 54268, 581858, 6214940, 67420394, 703398930, 7316745778, 75645891943
Offset: 1
a(2)=31 because there are 31 primes not greater than 541 (the 100th prime) that contain a 9's digit. Namely: 19, 29, 59, 79, 89, 97, 109, 139, 149, 179, 191, 193, 197, 199, 229, 239, 269, 293, 349, 359, 379, 389, 397, 409, 419, 439, 449, 479, 491, 499, 509.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 9], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
A231787
Count of the first 10^n primes containing at least one 1's digit.
Original entry on oeis.org
4, 46, 468, 5325, 65575, 737451, 7948534, 83168848, 844383541, 8470537436, 85169381579
Offset: 1
a(1)=4 because there are 4 primes not greater than 29 (the 10th prime) that contain a 1's digit. Namely: 11, 13, 17, 19.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 1], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
Module[{nn=7,p},p=Table[If[DigitCount[p,10,1]>0,1,0],{p,Prime[ Range[ 10^nn]]}];Table[Total[Take[p,10^k]],{k,nn}]] (* The program generates the first 7 terms of the sequence; to generate more, increase the value of nn but the program may take a long time to run. *) (* Harvey P. Dale, Sep 27 2019 *)
A231788
Count of the first 10^n primes containing at least one 2's digit.
Original entry on oeis.org
3, 23, 303, 3503, 44448, 487900, 5289359, 57794031, 658775109, 7212208422, 77028673251
Offset: 1
a(1)=3 because there are 3 primes not greater than 29 (the 10th prime) that contain a 2's digit. Namely: 2, 23, 29.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 2], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
A231789
Count of the first 10^n primes containing at least one 3's digit.
Original entry on oeis.org
3, 46, 466, 5091, 54595, 614992, 6460120, 67739219, 705998810, 7435919752, 76728753676
Offset: 1
a(1)=3 because there are 3 primes not greater than 29 (the 10th prime) that contain a 3's digit. Namely: 3, 13, 23.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 3], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
A231793
Count of the first 10^n primes containing at least one 6's digit.
Original entry on oeis.org
0, 10, 281, 3304, 39155, 445067, 5257963, 56668992, 607124788, 6426731531, 68792548151
Offset: 1
a(2)=10 because there are 10 primes not greater than 541 (the 100th prime) that contain a 6's digit. Namely: 61, 67, 163, 167, 263, 269, 367, 461, 463, 467.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 6], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
A231794
Count of the first 10^n primes containing at least one 7's digit.
Original entry on oeis.org
2, 33, 461, 4966, 54451, 583087, 6429219, 67482623, 705171522, 7318852851, 76279602631
Offset: 1
a(2)=33 because there are 33 primes not greater than 541 (the 100th prime) that contain a 7's digit. Namely: 7, 17, 37, 47, 67, 71, 73, 79, 97, 107, 127, 137, 157, 167, 173, 179, 197, 227, 257, 271, 277, 307, 317, 337, 347, 367, 373, 379, 397, 457, 467, 479, 487.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 7], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
A231795
Count of the first 10^n primes containing at least one 8's digit.
Original entry on oeis.org
0, 8, 184, 3288, 39133, 444122, 4973204, 56589762, 604756122, 6423638745, 67538009241
Offset: 1
a(2)=8 because there are 8 primes not greater than 541 (the 100th prime) that contain a 8's digit. Namely: 83, 89, 181, 281, 283, 383, 389, 487.
-
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 8], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
Showing 1-9 of 9 results.