login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A154762 Primes with the same number of decimal digits that are {1, 9} as {2, 3, 5, 7}. 0
13, 17, 29, 31, 59, 71, 79, 97, 103, 107, 163, 167, 241, 269, 281, 349, 389, 421, 431, 439, 479, 509, 541, 569, 613, 617, 631, 659, 701, 709, 761, 769, 821, 829, 839, 859, 907, 947, 967, 983, 1063, 1087, 1123, 1153, 1213, 1217, 1229, 1231, 1259, 1279, 1297 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Primes with the same number of prime decimal digits as odd nonprime digits.

LINKS

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

MAPLE

digs1or9 := proc(n) local a, c; a := 0 ; for c in convert(n, base, 10) do if c in {1, 9} then a := a+1 ; end if; end do; a; end proc: A109066 := proc(n) local a, d; p := ithprime(n) ; a := 0 ; for d in convert(p, base, 10) do if isprime(d) then a := a+1 ; end if; end do; a; end proc: for n from 1 to 400 do p := ithprime(n) ; if digs1or9(p) = A109066(n) then printf("%d, ", p) ; fi; od: [From R. J. Mathar, Oct 22 2009]

MATHEMATICA

ddQ[n_]:=Module[{idn=IntegerDigits[n]}, Count[idn, 1|9]==Count[idn, 2|3|5|7]]; Select[Prime[Range[250]], ddQ] (* Harvey P. Dale, Nov 29 2011 *)

CROSSREFS

Sequence in context: A220488 A092626 A156343 * A079348 A174024 A061381

Adjacent sequences:  A154759 A154760 A154761 * A154763 A154764 A154765

KEYWORD

nonn,base

AUTHOR

Juri-Stepan Gerasimov, Jan 15 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 21 20:21 EDT 2019. Contains 321382 sequences. (Running on oeis4.)