

A158080


Primes such that largest digit even of n = largest digit even of nth prime.


0



43, 239, 263, 491, 641, 727, 769, 787, 857, 967, 1013, 1021, 1087, 1223, 1229, 1231, 1237, 1249, 1259, 1279, 1283, 1291, 1297, 1327, 1423, 1543, 1549, 1619, 1657, 1663, 1667, 1669, 1693, 1697, 1699, 1789, 1811, 1823, 1831, 1847, 1861, 1867, 1871, 1873
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Primes p = prime(n) such that a largest even digit individually exists in the base10 representation for n and p, and such that it also is the same for both. [From R. J. Mathar, May 19 2010]


LINKS

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


MATHEMATICA

Transpose[Select[With[{no=300}, Thread[{Range[no], Prime[Range[no]]}]], Max[Select[IntegerDigits[First[#]], EvenQ]]==Max[Select[IntegerDigits[Last[#]], EvenQ]]>0&]][[2]] (* Harvey P. Dale, Feb 14 2011 *)


CROSSREFS

Cf. A000027, A000040, A156851.
Sequence in context: A038479 A142334 A107697 * A142450 A202008 A142632
Adjacent sequences: A158077 A158078 A158079 * A158081 A158082 A158083


KEYWORD

nonn,base,less


AUTHOR

JuriStepan Gerasimov, Mar 12 2009


EXTENSIONS

Corrected (61, 163, 181 removed, 239, 263 inserted, 281, 283, 421 removed etc.) by R. J. Mathar, May 19 2010


STATUS

approved



