OFFSET
1,1
LINKS
Metin Sariyar, Table of n, a(n) for n = 1..16451
Green, Prime Curios, Entry 71
Carlos Rivera, Puzzle 973. Largest known twin & emirp, The Prime Puzzles & Problems Connection.
MAPLE
read("transforms") ; isA001359 := proc(n) isprime(n) and isprime(n+2) ; end proc:
isA006567 := proc(n) local r ; r := digrev(n) ; isprime(n) and isprime(r) and n<> r ; end proc:
isA175215 := proc(n) isA001359(n) and isA006567(n) and isA006567(n+2) ; end proc:
for i from 1 to 10000 do p := ithprime(i) ; if isA175215(p) then printf("%d, ", p) ; end if; end do: # R. J. Mathar, Mar 16 2010
MATHEMATICA
Do[IR=IntegerReverse; Q=PrimeQ; If[Q[n]&&Q[n+2]&&Q[IR[n]]&&PrimeQ[IR[n+2]]&&!n==IR[n]&&!(n+2)==IR[n+2], Print[n]], {n, 5, 10^5, 6}] (* Metin Sariyar, Dec 17 2019 *)
PROG
(Magma) emirp:=func<n|IsPrime(n) and IsPrime(Seqint(Reverse(Intseq(n)))) and Intseq(n) ne Reverse(Intseq(n))>; [p:p in PrimesUpTo(20000)| emirp(p) and emirp(p+2)]; // Marius A. Burtea, Dec 17 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Mar 06 2010
EXTENSIONS
11699 inserted, 14921 -> 19421 corrected by R. J. Mathar, Mar 16 2010
STATUS
approved