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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A154813 Primes p such that the largest decimal digit of p + the smallest digit of prime(p) is a prime. 0
2, 11, 41, 43, 59, 101, 127, 173, 211, 223, 241, 263, 307, 311, 313, 317, 389, 419, 487, 557, 601, 613, 617, 619, 647, 673, 677, 727, 739, 751, 757, 761, 827, 839, 853, 857, 883, 929, 953, 971, 1013, 1021, 1033, 1039, 1061, 1091, 1103, 1109, 1123, 1151, 1181 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

MAPLE

nmax := proc (n) local nn: nn := convert(n, base, 10): max(seq(nn[j], j = 1 .. nops(nn))) end proc: nmin := proc (n) local nn: nn := convert(n, base, 10): min(seq(nn[j], j = 1 .. nops(nn))) end proc: a := proc (n) if isprime(n) = true and isprime(nmax(n)+nmin(ithprime(n))) = true then n else end if end proc: seq(a(n), n = 1 .. 1300); # Emeric Deutsch, Jan 27 2009

MATHEMATICA

Select[Prime[Range[200]], PrimeQ[Max[IntegerDigits[#]]+Min[ IntegerDigits[ Prime[ #]]]]&] (* Harvey P. Dale, Sep 23 2011 *)

CROSSREFS

Sequence in context: A308524 A000822 A290175 * A168367 A247101 A080093

Adjacent sequences:  A154810 A154811 A154812 * A154814 A154815 A154816

KEYWORD

nonn,base,less

AUTHOR

Juri-Stepan Gerasimov, Jan 15 2009, Jan 16 2009

EXTENSIONS

Corrected (added 101, 223, 853; removed 233, 239, 811) and extended by Emeric Deutsch, Jan 27 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 July 23 11:44 EDT 2019. Contains 325254 sequences. (Running on oeis4.)