A155056 Primes p such that number of prime digits of prime(p) > number of nonprime digits of prime(p).

2, 3, 31, 37, 59, 61, 67, 71, 73, 101, 103, 107, 131, 137, 139, 151, 241, 269, 307, 331, 349, 367, 457, 461, 491, 499, 503, 509, 521, 587, 727, 733, 739, 823, 827, 907, 929, 937, 953, 983, 1033, 1049, 1063

Offset

1,1

Comments

Prime digits are 2, 3, 5, 7, nonprime digits are 0, 1, 4, 6, 8, 9.

Links

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

Mathematica

pgnQ[p_]:=Count[IntegerDigits[Prime[p]], _?(MemberQ[{2, 3, 5, 7}, #]&)]>IntegerLength[ Prime[p]]/2; Select[Prime[Range[200]], pgnQ] (* Harvey P. Dale, Apr 11 2023 *)

Crossrefs

Cf. A000040, A141468.

Sequence in context: A074479 A272043 A136150 * A110456 A128348 A029973

Adjacent sequences: A155053 A155054 A155055 * A155057 A155058 A155059

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Jan 19 2009

Extensions

Corrected (269 inserted) by R. J. Mathar, May 05 2010

Status

approved