cp's OEIS Frontend

A180421 Members p of A091366 such that digit-reverse(p) is also in A091366.

%I A180421 #8 Apr 06 2021 20:23:13
%S A180421 11,101,113,131,151,199,311,337,353,359,373,733,757,919,953,991,1031,
%T A180421 1103,1213,1217,1231,1237,1259,1301,1321,1381,1439,1471,1499,1619,
%U A180421 1723,1741,1831,1949,3011,3019,3109,3121,3163,3257,3271,3299,3347,3527,3583,3613,3767
%N A180421 Members p of A091366 such that digit-reverse(p) is also in A091366.
%H A180421 Robert Israel, <a href="/A180421/b180421.txt">Table of n, a(n) for n = 1..10000</a>
%F A180421 {A091366(i): A004086(A091366(i)) in A091366}.
%e A180421 a(10) = A091366(19) = 359 and reverse(359) = 953 = A091366(42) is again in A091366.
%p A180421 filter:= proc(n) local i,L,d,y;
%p A180421   if not isprime(n) then return false fi;
%p A180421   L:= convert(n,base,10);
%p A180421   d:= nops(L);
%p A180421   isprime(add(L[i]^3,i=1..d)) and isprime(add(L[-i]*10^(i-1),i=1..d))
%p A180421 end proc:
%p A180421 select(filter, [seq(i,i=3..10000,2)]); # _Robert Israel_, Apr 06 2021
%Y A180421 Cf. A091366
%K A180421 nonn,base
%O A180421 1,1
%A A180421 _Carmine Suriano_, Sep 03 2010
%E A180421 Keyword:base added and definition shortened by _R. J. Mathar_, Sep 23 2010