OFFSET
1,1
MAPLE
read("transforms") ; isA006567 := proc(n) local dr ; dr := digrev(n) ; RETURN(dr <> n and isprime(dr)) ; end: for n from 1 to 800 do p := n^2+n+41; if isprime(p) then if isA006567(p) then printf("%d, ", p) ; fi; fi; od: # R. J. Mathar, Feb 06 2009
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Jonathan Vos Post, Jan 31 2009
EXTENSIONS
Extended by R. J. Mathar and Dmitry Kamenetsky, Feb 06 2009
STATUS
approved