OFFSET
1,1
COMMENTS
All terms are lesser of twin primes (A001359).
LINKS
Zak Seidov, Table of n, a(n) for n = 1..3000
EXAMPLE
23 and 2+3=5 are primes, 211 and 2+11=13 are primes.
MATHEMATICA
Reap[Do[If[PrimeQ[2+(p=Prime[n])]&&PrimeQ[ToExpression["2"<>ToString[p]]], Sow[p]], {n, 10^3}]][[2, 1]]
Select[Prime@ Range@ 800, And[PrimeQ@ FromDigits[Prepend[IntegerDigits@ #, 2]], PrimeQ[# + 2]] &] (* Michael De Vlieger, Mar 07 2016 *)
PROG
(PARI) is(n)=isprime(n) && isprime(n+2) && isprime(eval(Str(2, n))) \\ Charles R Greathouse IV, Mar 07 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 07 2016
STATUS
approved