A091710 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A091710

Number of primes less than 10^n having at least one digit 9.

0, 6, 60, 542, 4826, 43359, 397093, 3677641, 34316162, 321993007, 3035059323, 28710966351, 272413818120, 2591276923548

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..14.

EXAMPLE

a(2) = 6 because of the 25 primes less than 10^2, 6 have at least one digit 9.

MATHEMATICA

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; c = 0; p = 1; Do[ While[ p = NextPrim[p]; p < 10^n, If[ Position[ IntegerDigits[p], 9] != {}, c++ ]]; Print[c]; p--, {n, 1, 8}] (* Robert G. Wilson v, Feb 02 2004 *)

CROSSREFS

a(n) + A091643(n) = A006880(n).

Cf. A091644, A091645, A091646, A091647, A090705, A090706, A091707, A091708, A091709.

Sequence in context: A102232 A121113 A213269 * A054880 A186656 A122653

Adjacent sequences: A091707 A091708 A091709 * A091711 A091712 A091713

KEYWORD

nonn,base

AUTHOR

Enoch Haga, Jan 30 2004

EXTENSIONS

Edited and extended by Robert G. Wilson v, Feb 02 2004

3 more terms from Ryan Propper, Aug 22 2005

a(13) from Robert Price, Nov 11 2013

a(14) from Giovanni Resta, Jul 21 2015

STATUS

approved