OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[400]], PrimeQ[First[IntegerDigits[#]]+ Last[ IntegerDigits[ #]]]&] (* Harvey P. Dale, Jun 23 2017 *)
PROG
(Python)
from sympy import isprime, primerange
def ok(p): s = str(p); return isprime(int(s[0]) + int(s[-1]))
def aupto(limit): return [p for p in primerange(1, limit+1) if ok(p)]
print(aupto(691)) # Michael S. Branicky, Nov 23 2021
(PARI) select( {is_A088136(p)=isprime(p\10^logint(p, 10)+p%10)&&isprime(p)}, primes(99)) \\ M. F. Hasler, Apr 23 2024
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Sep 20 2003
STATUS
approved