The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #9 Jan 21 2019 19:52:22
%S 71,97,113,347,743,971,1033,1097,1231,1301,1523,1601,1847,1933,3011,
%T 3121,3347,3463,7523,9161,9547,9941,10343,12697,13151,15541,15791,
%U 17863,30491,31193,32261,32983,39047,70001,72671,74843,75941,77047,79847
%N Emirps of the form k^2 + k + 41.
%F A005846 INTERSECTION A006567.
%p 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
%Y Cf. A005846, A006567, A155924.
%K easy,nonn,base
%O 1,1
%A _Jonathan Vos Post_, Jan 31 2009
%E Extended by _R. J. Mathar_ and _Dmitry Kamenetsky_, Feb 06 2009